home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: Mailbox/MIME Entity
(archive/mbox).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| Mailbox/MIME Entity (archive/mbox)
| magic
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| Mailbox text, 1st line "From brennan@atc.boeing.com Mon Feb 8 14:18:21 1993", ASCII text
| default
| |
| 100%
| checkBytes
| Printable ASCII
| default
| |
| 100%
| perlTextCheck
| Likely Text (Perl)
| default
| |
| 100%
| detectItEasy
| Format: Plain text[LF]
| default
| |
| 100%
| xdgMime
| application/mbox
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 20 62 72 65 | 6e 6e 61 6e 40 61 74 63 |From bre|nnan@atc|
|00000010| 2e 62 6f 65 69 6e 67 2e | 63 6f 6d 20 4d 6f 6e 20 |.boeing.|com Mon |
|00000020| 46 65 62 20 20 38 20 31 | 34 3a 31 38 3a 32 31 20 |Feb 8 1|4:18:21 |
|00000030| 31 39 39 33 0a 0a 70 61 | 74 63 68 33 20 66 6f 72 |1993..pa|tch3 for|
|00000040| 20 6d 61 77 6b 31 2e 31 | 20 70 6f 73 74 65 64 20 | mawk1.1| posted |
|00000050| 74 6f 20 76 6f 6c 75 6d | 65 31 20 66 6f 6c 6c 6f |to volum|e1 follo|
|00000060| 77 73 20 69 6e 20 32 20 | 70 61 72 74 73 20 28 74 |ws in 2 |parts (t|
|00000070| 68 69 73 2b 31 29 0a 2d | 2d 2d 2d 2d 2d 2d 2d 2d |his+1).-|--------|
|00000080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 0a 0a 41 | 20 73 63 72 69 70 74 20 |-----..A| script |
|000000c0| 74 6f 20 70 61 74 63 68 | 20 6d 61 77 6b 31 2e 31 |to patch| mawk1.1|
|000000d0| 2e 32 20 74 6f 20 6d 61 | 77 6b 31 2e 31 2e 33 20 |.2 to ma|wk1.1.3 |
|000000e0| 66 6f 6c 6c 6f 77 73 2e | 0a 43 68 61 6e 67 65 73 |follows.|.Changes|
|000000f0| 20 61 72 65 3a 0a 0a 31 | 29 20 4e 65 77 20 63 6f | are:..1|) New co|
|00000100| 6e 66 69 67 75 72 61 74 | 69 6f 6e 73 3a 0a 20 20 |nfigurat|ions:. |
|00000110| 20 68 70 75 78 20 63 6f | 68 65 72 65 6e 74 20 33 | hpux co|herent 3|
|00000120| 38 36 62 73 64 20 6c 69 | 6e 75 78 0a 0a 32 29 20 |86bsd li|nux..2) |
|00000130| 43 68 61 6e 67 65 64 20 | 73 6f 6d 65 20 69 6e 74 |Changed |some int|
|00000140| 73 20 74 6f 20 6c 6f 6e | 67 73 20 73 6f 20 74 68 |s to lon|gs so th|
|00000150| 61 74 20 55 6e 69 78 20 | 61 6e 64 20 44 6f 73 20 |at Unix |and Dos |
|00000160| 76 65 72 73 69 6f 6e 73 | 0a 20 20 20 67 69 76 65 |versions|. give|
|00000170| 20 73 61 6d 65 20 6f 75 | 74 70 75 74 2e 20 20 45 | same ou|tput. E|
|00000180| 2e 67 2e 2c 0a 0a 20 20 | 20 70 72 69 6e 74 66 20 |.g.,.. | printf |
|00000190| 22 25 64 22 20 61 6e 64 | 20 70 72 69 6e 74 66 20 |"%d" and| printf |
|000001a0| 22 25 6c 64 22 20 61 72 | 65 20 6e 6f 77 20 74 68 |"%ld" ar|e now th|
|000001b0| 65 20 73 61 6d 65 20 6f | 6e 20 44 6f 73 2e 0a 0a |e same o|n Dos...|
|000001c0| 20 20 20 6d 73 64 6f 73 | 2f 65 78 61 6d 70 6c 65 | msdos|/example|
|000001d0| 73 20 64 69 72 65 63 74 | 6f 72 79 20 77 69 74 68 |s direct|ory with|
|000001e0| 20 73 63 72 69 70 74 73 | 20 62 79 20 42 65 6e 20 | scripts| by Ben |
|000001f0| 4d 79 65 72 73 0a 0a 20 | 20 20 49 6e 66 69 6e 69 |Myers.. | Infini|
|00000200| 74 79 2b 31 20 6c 61 72 | 67 65 20 6d 6f 64 65 6c |ty+1 lar|ge model|
|00000210| 20 70 6f 69 6e 74 65 72 | 20 62 75 67 20 63 61 75 | pointer| bug cau|
|00000220| 73 65 64 20 62 79 20 6d | 6f 64 75 6c 6f 20 32 5e |sed by m|odulo 2^|
|00000230| 31 36 0a 20 20 20 61 72 | 69 74 68 6d 65 74 69 63 |16. ar|ithmetic|
|00000240| 20 66 69 78 65 64 2e 0a | 0a 33 29 20 47 72 6f 73 | fixed..|.3) Gros|
|00000250| 73 6c 79 20 73 75 72 70 | 72 69 73 65 64 20 74 6f |sly surp|rised to|
|00000260| 20 64 69 73 63 6f 76 65 | 72 20 20 28 69 6e 74 29 | discove|r (int)|
|00000270| 20 64 20 63 61 75 73 65 | 73 20 61 20 66 6c 6f 61 | d cause|s a floa|
|00000280| 74 69 6e 67 0a 20 20 20 | 70 6f 69 6e 74 20 65 78 |ting. |point ex|
|00000290| 63 65 70 74 69 6f 6e 20 | 6f 6e 20 68 70 75 78 20 |ception |on hpux |
|000002a0| 77 68 65 6e 20 64 20 69 | 73 20 61 20 6c 61 72 67 |when d i|s a larg|
|000002b0| 65 20 64 6f 75 62 6c 65 | 2e 0a 20 20 20 49 6e 74 |e double|.. Int|
|000002c0| 65 67 65 72 20 63 61 73 | 74 73 20 61 72 65 20 6e |eger cas|ts are n|
|000002d0| 6f 77 20 64 6f 6e 65 20 | 6d 6f 72 65 20 63 61 72 |ow done |more car|
|000002e0| 65 66 75 6c 6c 79 2e 20 | 20 54 68 61 6e 6b 73 20 |efully. | Thanks |
|000002f0| 74 6f 0a 20 20 20 4b 65 | 6e 20 50 6f 75 6c 74 6f |to. Ke|n Poulto|
|00000300| 6e 20 66 6f 72 20 66 69 | 6e 64 69 6e 67 20 74 68 |n for fi|nding th|
|00000310| 69 73 20 62 75 67 2e 0a | 0a 34 29 20 52 65 6d 6f |is bug..|.4) Remo|
|00000320| 76 65 64 20 41 70 6f 6c | 6c 6f 53 52 31 30 2e 33 |ved Apol|loSR10.3|
|00000330| 20 66 72 6f 6d 20 77 6f | 72 6b 69 6e 67 20 63 6f | from wo|rking co|
|00000340| 6e 66 69 67 75 72 61 74 | 69 6f 6e 73 2e 20 4d 61 |nfigurat|ions. Ma|
|00000350| 77 6b 20 77 69 6c 6c 0a | 20 20 20 6e 6f 74 20 77 |wk will.| not w|
|00000360| 6f 72 6b 20 69 66 20 63 | 6f 6d 70 69 6c 65 64 20 |ork if c|ompiled |
|00000370| 77 69 74 68 20 43 43 36 | 2e 38 2e 0a 0a 35 29 20 |with CC6|.8...5) |
|00000380| 41 20 66 65 77 20 6d 69 | 6e 6f 72 20 66 69 78 65 |A few mi|nor fixe|
|00000390| 73 20 61 6e 64 20 74 77 | 65 61 6b 73 2e 20 20 28 |s and tw|eaks. (|
|000003a0| 24 4c 6f 67 73 24 20 63 | 6f 6e 74 61 69 6e 20 6d |$Logs$ c|ontain m|
|000003b0| 6f 72 65 20 64 65 74 61 | 69 6c 29 2e 0a 0a 0a 23 |ore deta|il)....#|
|000003c0| 21 2f 62 69 6e 2f 73 68 | 0a 23 20 54 68 69 73 20 |!/bin/sh|.# This |
|000003d0| 69 73 20 61 20 73 68 65 | 6c 6c 20 61 72 63 68 69 |is a she|ll archi|
|000003e0| 76 65 20 28 70 72 6f 64 | 75 63 65 64 20 62 79 20 |ve (prod|uced by |
|000003f0| 73 68 61 72 20 33 2e 35 | 30 29 0a 23 20 54 6f 20 |shar 3.5|0).# To |
|00000400| 65 78 74 72 61 63 74 20 | 74 68 65 20 66 69 6c 65 |extract |the file|
|00000410| 73 20 66 72 6f 6d 20 74 | 68 69 73 20 61 72 63 68 |s from t|his arch|
|00000420| 69 76 65 2c 20 73 61 76 | 65 20 69 74 20 74 6f 20 |ive, sav|e it to |
|00000430| 61 20 66 69 6c 65 2c 20 | 72 65 6d 6f 76 65 0a 23 |a file, |remove.#|
|00000440| 20 65 76 65 72 79 74 68 | 69 6e 67 20 61 62 6f 76 | everyth|ing abov|
|00000450| 65 20 74 68 65 20 22 21 | 2f 62 69 6e 2f 73 68 22 |e the "!|/bin/sh"|
|00000460| 20 6c 69 6e 65 20 61 62 | 6f 76 65 2c 20 61 6e 64 | line ab|ove, and|
|00000470| 20 74 79 70 65 20 22 73 | 68 20 66 69 6c 65 5f 6e | type "s|h file_n|
|00000480| 61 6d 65 22 2e 0a 23 0a | 23 20 6d 61 64 65 20 30 |ame"..#.|# made 0|
|00000490| 32 2f 30 38 2f 31 39 39 | 33 20 31 39 3a 30 39 20 |2/08/199|3 19:09 |
|000004a0| 55 54 43 20 62 79 20 62 | 72 65 6e 6e 61 6e 40 62 |UTC by b|rennan@b|
|000004b0| 6c 61 63 6b 73 6d 69 74 | 68 0a 23 20 53 6f 75 72 |lacksmit|h.# Sour|
|000004c0| 63 65 20 64 69 72 65 63 | 74 6f 72 79 20 2f 61 2f |ce direc|tory /a/|
|000004d0| 62 72 6f 6e 74 65 2f 75 | 73 65 72 73 34 2f 62 72 |bronte/u|sers4/br|
|000004e0| 65 6e 6e 61 6e 2f 74 6d | 70 2f 4d 0a 23 0a 23 20 |ennan/tm|p/M.#.# |
|000004f0| 65 78 69 73 74 69 6e 67 | 20 66 69 6c 65 73 20 77 |existing| files w|
|00000500| 69 6c 6c 20 4e 4f 54 20 | 62 65 20 6f 76 65 72 77 |ill NOT |be overw|
|00000510| 72 69 74 74 65 6e 20 75 | 6e 6c 65 73 73 20 2d 63 |ritten u|nless -c|
|00000520| 20 69 73 20 73 70 65 63 | 69 66 69 65 64 0a 23 0a | is spec|ified.#.|
|00000530| 23 20 54 68 69 73 20 69 | 73 20 70 61 72 74 20 31 |# This i|s part 1|
|00000540| 20 6f 66 20 61 20 6d 75 | 6c 74 69 70 61 72 74 20 | of a mu|ltipart |
|00000550| 61 72 63 68 69 76 65 20 | 20 20 20 20 20 20 20 20 |archive | |
|00000560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000570| 20 20 20 20 20 20 20 20 | 20 20 20 0a 23 20 64 6f | | .# do|
|00000580| 20 6e 6f 74 20 63 6f 6e | 63 61 74 65 6e 61 74 65 | not con|catenate|
|00000590| 20 74 68 65 73 65 20 70 | 61 72 74 73 2c 20 75 6e | these p|arts, un|
|000005a0| 70 61 63 6b 20 74 68 65 | 6d 20 69 6e 20 6f 72 64 |pack the|m in ord|
|000005b0| 65 72 20 77 69 74 68 20 | 2f 62 69 6e 2f 73 68 20 |er with |/bin/sh |
|000005c0| 20 20 20 20 20 20 20 0a | 23 0a 23 20 54 68 69 73 | .|#.# This|
|000005d0| 20 73 68 61 72 20 63 6f | 6e 74 61 69 6e 73 3a 0a | shar co|ntains:.|
|000005e0| 23 20 6c 65 6e 67 74 68 | 20 20 6d 6f 64 65 20 20 |# length| mode |
|000005f0| 20 20 20 20 20 6e 61 6d | 65 0a 23 20 2d 2d 2d 2d | nam|e.# ----|
|00000600| 2d 2d 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 2d 2d |-- -----|----- --|
|00000610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000630| 2d 2d 2d 2d 2d 2d 2d 2d | 0a 23 20 31 31 31 35 35 |--------|.# 11155|
|00000640| 35 20 2d 72 77 2d 72 2d | 2d 2d 2d 2d 20 70 61 74 |5 -rw-r-|---- pat|
|00000650| 63 68 33 0a 23 0a 69 66 | 20 74 65 73 74 20 2d 72 |ch3.#.if| test -r|
|00000660| 20 5f 73 68 61 72 5f 73 | 65 71 5f 2e 74 6d 70 3b | _shar_s|eq_.tmp;|
|00000670| 20 74 68 65 6e 0a 09 65 | 63 68 6f 20 27 4d 75 73 | then..e|cho 'Mus|
|00000680| 74 20 75 6e 70 61 63 6b | 20 61 72 63 68 69 76 65 |t unpack| archive|
|00000690| 73 20 69 6e 20 73 65 71 | 75 65 6e 63 65 21 27 0a |s in seq|uence!'.|
|000006a0| 09 65 63 68 6f 20 50 6c | 65 61 73 65 20 75 6e 70 |.echo Pl|ease unp|
|000006b0| 61 63 6b 20 70 61 72 74 | 20 60 63 61 74 20 5f 73 |ack part| `cat _s|
|000006c0| 68 61 72 5f 73 65 71 5f | 2e 74 6d 70 60 20 6e 65 |har_seq_|.tmp` ne|
|000006d0| 78 74 0a 09 65 78 69 74 | 20 31 0a 66 69 0a 23 20 |xt..exit| 1.fi.# |
|000006e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 20 70 61 |========|===== pa|
|000006f0| 74 63 68 33 20 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |tch3 ===|========|
|00000700| 3d 3d 3d 0a 69 66 20 74 | 65 73 74 20 2d 66 20 27 |===.if t|est -f '|
|00000710| 70 61 74 63 68 33 27 20 | 2d 61 20 58 22 24 31 22 |patch3' |-a X"$1"|
|00000720| 20 21 3d 20 58 22 2d 63 | 22 3b 20 74 68 65 6e 0a | != X"-c|"; then.|
|00000730| 09 65 63 68 6f 20 27 78 | 20 2d 20 73 6b 69 70 70 |.echo 'x| - skipp|
|00000740| 69 6e 67 20 70 61 74 63 | 68 33 20 28 46 69 6c 65 |ing patc|h3 (File|
|00000750| 20 61 6c 72 65 61 64 79 | 20 65 78 69 73 74 73 29 | already| exists)|
|00000760| 27 0a 09 72 6d 20 2d 66 | 20 5f 73 68 61 72 5f 77 |'..rm -f| _shar_w|
|00000770| 6e 74 5f 2e 74 6d 70 0a | 65 6c 73 65 0a 3e 20 5f |nt_.tmp.|else.> _|
|00000780| 73 68 61 72 5f 77 6e 74 | 5f 2e 74 6d 70 0a 65 63 |shar_wnt|_.tmp.ec|
|00000790| 68 6f 20 27 78 20 2d 20 | 65 78 74 72 61 63 74 69 |ho 'x - |extracti|
|000007a0| 6e 67 20 70 61 74 63 68 | 33 20 28 54 65 78 74 29 |ng patch|3 (Text)|
|000007b0| 27 0a 73 65 64 20 27 73 | 2f 5e 58 2f 2f 27 20 3c |'.sed 's|/^X//' <|
|000007c0| 3c 20 27 53 48 41 52 5f | 45 4f 46 27 20 3e 20 27 |< 'SHAR_|EOF' > '|
|000007d0| 70 61 74 63 68 33 27 20 | 26 26 0a 23 21 2f 62 69 |patch3' |&&.#!/bi|
|000007e0| 6e 2f 73 68 0a 58 0a 23 | 20 45 78 65 63 75 74 65 |n/sh.X.#| Execute|
|000007f0| 20 74 68 69 73 20 73 63 | 72 69 70 74 20 74 6f 20 | this sc|ript to |
|00000800| 63 6f 6e 76 65 72 74 20 | 6d 61 77 6b 31 2e 31 2e |convert |mawk1.1.|
|00000810| 32 20 74 6f 20 6d 61 77 | 6b 31 2e 31 2e 33 0a 58 |2 to maw|k1.1.3.X|
|00000820| 0a 58 09 72 6d 20 2d 66 | 20 6d 73 64 6f 73 2f 72 |.X.rm -f| msdos/r|
|00000830| 65 61 72 67 76 2e 63 0a | 58 09 6d 6b 64 69 72 20 |eargv.c.|X.mkdir |
|00000840| 6d 73 64 6f 73 2f 65 78 | 61 6d 70 6c 65 73 0a 58 |msdos/ex|amples.X|
|00000850| 0a 58 0a 58 09 70 61 74 | 63 68 20 2d 73 20 3c 3c |.X.X.pat|ch -s <<|
|00000860| 27 44 49 46 46 47 45 4e | 5f 45 4f 46 27 0a 58 0a |'DIFFGEN|_EOF'.X.|
|00000870| 2a 2a 2a 20 2f 64 65 76 | 2f 6e 75 6c 6c 09 53 61 |*** /dev|/null.Sa|
|00000880| 74 20 46 65 62 20 20 36 | 20 30 32 3a 30 37 3a 30 |t Feb 6| 02:07:0|
|00000890| 30 20 31 39 39 33 0a 2d | 2d 2d 20 6d 73 64 6f 73 |0 1993.-|-- msdos|
|000008a0| 2f 65 78 61 6d 70 6c 65 | 73 2f 77 69 6e 6f 62 6a |/example|s/winobj|
|000008b0| 2e 61 77 6b 09 53 61 74 | 20 44 65 63 20 20 35 20 |.awk.Sat| Dec 5 |
|000008c0| 31 33 3a 35 37 3a 31 36 | 20 31 39 39 32 0a 2a 2a |13:57:16| 1992.**|
|000008d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0a 2a 2a |********|*****.**|
|000008e0| 2a 20 30 20 2a 2a 2a 2a | 0a 2d 2d 2d 20 31 2c 38 |* 0 ****|.--- 1,8|
|000008f0| 31 20 2d 2d 2d 2d 0a 2b | 20 23 20 42 65 6e 20 4d |1 ----.+| # Ben M|
|00000900| 79 65 72 73 20 3c 30 30 | 30 33 35 37 31 34 30 30 |yers <00|03571400|
|00000910| 40 6d 63 69 6d 61 69 6c | 2e 63 6f 6d 3e 0a 2b 20 |@mcimail|.com>.+ |
|00000920| 0a 2b 20 23 20 53 75 6d | 20 75 70 20 73 69 7a 65 |.+ # Sum| up size|
|00000930| 73 20 6f 66 20 57 69 6e | 64 6f 77 73 20 4f 42 4a |s of Win|dows OBJ|
|00000940| 20 66 69 6c 65 73 20 69 | 6e 20 63 75 72 72 65 6e | files i|n curren|
|00000950| 74 20 64 69 72 65 63 74 | 6f 72 79 0a 2b 20 23 20 |t direct|ory.+ # |
|00000960| 72 65 71 75 69 72 65 73 | 20 44 4f 53 20 35 2e 30 |requires| DOS 5.0|
|00000970| 20 61 6e 64 20 42 6f 72 | 6c 61 6e 64 20 54 44 55 | and Bor|land TDU|
|00000980| 4d 50 0a 2b 20 23 20 41 | 20 63 6c 75 6d 73 79 20 |MP.+ # A| clumsy |
|00000990| 73 63 72 69 70 74 20 74 | 6f 20 63 6f 75 6e 74 20 |script t|o count |
|000009a0| 57 69 6e 64 6f 77 73 20 | 4f 42 4a 73 20 61 6e 64 |Windows |OBJs and|
|000009b0| 20 73 75 6d 20 75 70 20 | 74 68 65 20 43 4f 44 45 | sum up |the CODE|
|000009c0| 20 73 69 7a 65 73 0a 2b | 20 23 20 72 75 6e 20 77 | sizes.+| # run w|
|000009d0| 69 74 68 0a 2b 20 23 20 | 20 20 20 20 20 20 61 77 |ith.+ # | aw|
|000009e0| 6b 20 2d 66 77 69 6e 6f | 62 6a 2e 61 77 6b 20 77 |k -fwino|bj.awk w|
|000009f0| 6f 72 6b 31 0a 2b 20 23 | 20 77 68 65 72 65 20 77 |ork1.+ #| where w|
|00000a00| 6f 72 6b 31 20 69 73 20 | 61 20 77 6f 72 6b 20 66 |ork1 is |a work f|
|00000a10| 69 6c 65 0a 2b 20 23 20 | 59 6f 75 20 6d 75 73 74 |ile.+ # |You must|
|00000a20| 20 68 61 76 65 20 61 74 | 20 6c 65 61 73 74 20 6f | have at| least o|
|00000a30| 6e 65 20 66 69 6c 65 6e | 61 6d 65 20 61 73 20 61 |ne filen|ame as a|
|00000a40| 6e 20 61 72 67 2c 20 65 | 6c 73 65 20 61 77 6b 20 |n arg, e|lse awk |
|00000a50| 77 69 6c 6c 20 77 61 6e | 74 20 74 6f 20 72 65 61 |will wan|t to rea|
|00000a60| 64 0a 2b 20 23 20 66 72 | 6f 6d 20 63 6f 6e 3a 2c |d.+ # fr|om con:,|
|00000a70| 20 68 65 6e 63 65 20 74 | 68 65 20 72 65 71 75 69 | hence t|he requi|
|00000a80| 72 65 6d 65 6e 74 20 66 | 6f 72 20 77 6f 72 6b 31 |rement f|or work1|
|00000a90| 0a 2b 20 42 45 47 49 4e | 20 7b 0a 2b 20 23 20 72 |.+ BEGIN| {.+ # r|
|00000aa0| 65 64 69 72 65 63 74 69 | 6f 6e 20 64 6f 6e 65 20 |edirecti|on done |
|00000ab0| 62 79 20 73 68 65 6c 6c | 65 64 20 63 6f 6d 6d 61 |by shell|ed comma|
|00000ac0| 6e 64 0a 2b 20 6f 63 6f | 75 6e 74 20 3d 20 30 20 |nd.+ oco|unt = 0 |
|00000ad0| 20 23 20 6f 62 6a 20 6d | 6f 64 75 6c 65 20 63 6f | # obj m|odule co|
|00000ae0| 75 6e 74 65 72 0a 2b 20 | 6f 74 73 69 7a 65 20 3d |unter.+ |otsize =|
|00000af0| 20 30 20 20 23 20 74 65 | 78 74 20 73 69 7a 65 20 | 0 # te|xt size |
|00000b00| 61 63 63 75 6d 75 6c 61 | 74 6f 72 0a 2b 20 6f 64 |accumula|tor.+ od|
|00000b10| 73 69 7a 65 20 3d 20 30 | 20 20 23 20 64 61 74 61 |size = 0| # data|
|00000b20| 20 73 69 7a 65 20 61 63 | 63 75 6d 75 6c 61 74 6f | size ac|cumulato|
|00000b30| 72 0a 2b 20 73 79 73 74 | 65 6d 28 22 64 65 6c 20 |r.+ syst|em("del |
|00000b40| 77 6f 72 6b 66 69 6c 65 | 2e 24 25 24 22 29 20 23 |workfile|.$%$") #|
|00000b50| 20 57 69 6c 6c 20 70 72 | 6f 62 61 62 6c 79 20 63 | Will pr|obably c|
|00000b60| 61 75 73 65 20 61 20 46 | 69 6c 65 20 4e 6f 74 20 |ause a F|ile Not |
|00000b70| 46 6f 75 6e 64 20 6d 65 | 73 73 61 67 65 0a 2b 20 |Found me|ssage.+ |
|00000b80| 23 20 47 65 6e 65 72 61 | 74 65 20 61 20 6c 69 73 |# Genera|te a lis|
|00000b90| 74 20 6f 66 20 4f 42 4a | 73 0a 2b 20 73 79 73 74 |t of OBJ|s.+ syst|
|00000ba0| 65 6d 28 22 64 69 72 20 | 2a 2e 6f 62 6a 20 2f 62 |em("dir |*.obj /b|
|00000bb0| 20 3e 22 20 41 52 47 56 | 5b 31 5d 29 0a 2b 20 77 | >" ARGV|[1]).+ w|
|00000bc0| 68 69 6c 65 20 28 67 65 | 74 6c 69 6e 65 20 3c 20 |hile (ge|tline < |
|00000bd0| 41 52 47 56 5b 31 5d 20 | 3e 20 30 29 20 7b 0a 2b |ARGV[1] |> 0) {.+|
|00000be0| 20 23 20 54 44 55 4d 50 | 20 73 65 6c 65 63 74 73 | # TDUMP| selects|
|00000bf0| 20 6f 6e 6c 79 20 74 68 | 65 20 53 45 47 44 45 46 | only th|e SEGDEF|
|00000c00| 73 20 74 6f 20 73 70 65 | 65 64 20 74 68 69 6e 67 |s to spe|ed thing|
|00000c10| 73 20 75 70 20 61 20 6c | 6f 74 0a 2b 20 23 20 61 |s up a l|ot.+ # a|
|00000c20| 6e 64 20 6b 65 65 70 73 | 20 6f 6e 20 70 69 70 69 |nd keeps| on pipi|
|00000c30| 6e 67 20 74 6f 20 74 68 | 65 20 77 6f 72 6b 66 69 |ng to th|e workfi|
|00000c40| 6c 65 0a 2b 20 73 79 73 | 74 65 6d 28 22 74 64 75 |le.+ sys|tem("tdu|
|00000c50| 6d 70 20 22 20 24 31 20 | 22 20 2d 6f 69 53 45 47 |mp " $1 |" -oiSEG|
|00000c60| 44 45 46 20 3e 3e 77 6f | 72 6b 66 69 6c 65 2e 24 |DEF >>wo|rkfile.$|
|00000c70| 25 24 22 29 0a 2b 20 6f | 63 6f 75 6e 74 2b 2b 0a |%$").+ o|count++.|
|00000c80| 2b 20 7d 0a 2b 20 23 20 | 4e 6f 77 20 72 65 61 64 |+ }.+ # |Now read|
|00000c90| 20 77 6f 72 6b 66 69 6c | 65 20 62 61 63 6b 2c 20 | workfil|e back, |
|00000ca0| 70 72 6f 63 65 73 73 69 | 6e 67 20 6c 69 6e 65 73 |processi|ng lines|
|00000cb0| 20 74 68 61 74 20 61 72 | 65 20 6d 6f 64 75 6c 65 | that ar|e module|
|00000cc0| 20 69 64 73 20 61 6e 64 | 20 53 45 47 44 45 46 20 | ids and| SEGDEF |
|00000cd0| 69 6e 66 6f 0a 2b 20 23 | 20 50 72 69 6e 74 20 6f |info.+ #| Print o|
|00000ce0| 6e 65 20 6c 69 6e 65 20 | 66 6f 72 20 65 61 63 68 |ne line |for each|
|00000cf0| 20 53 45 47 44 45 46 20 | 70 72 6f 63 65 73 73 65 | SEGDEF |processe|
|00000d00| 64 0a 2b 20 6a 20 3d 20 | 31 0a 2b 20 77 68 69 6c |d.+ j = |1.+ whil|
|00000d10| 65 20 28 67 65 74 6c 69 | 6e 65 20 3c 20 22 77 6f |e (getli|ne < "wo|
|00000d20| 72 6b 66 69 6c 65 2e 24 | 25 24 22 20 3e 20 30 29 |rkfile.$|%$" > 0)|
|00000d30| 20 7b 0a 2b 20 23 20 6d | 6f 64 75 6c 65 20 6e 61 | {.+ # m|odule na|
|00000d40| 6d 65 0a 2b 20 69 66 28 | 24 31 20 3d 3d 20 22 44 |me.+ if(|$1 == "D|
|00000d50| 69 73 70 6c 61 79 22 20 | 26 26 20 24 32 20 3d 3d |isplay" |&& $2 ==|
|00000d60| 20 22 6f 66 22 20 26 26 | 20 24 33 20 3d 3d 20 22 | "of" &&| $3 == "|
|00000d70| 46 69 6c 65 22 29 20 7b | 20 6d 6f 64 75 6c 65 5f |File") {| module_|
|00000d80| 6e 61 6d 65 20 3d 20 24 | 34 20 7d 0a 2b 20 23 20 |name = $|4 }.+ # |
|00000d90| 53 45 47 44 45 46 20 43 | 4f 44 45 0a 2b 20 69 66 |SEGDEF C|ODE.+ if|
|00000da0| 28 24 32 20 3d 3d 20 22 | 53 45 47 44 45 46 22 20 |($2 == "|SEGDEF" |
|00000db0| 26 26 20 24 39 20 3d 3d | 22 27 43 4f 44 45 27 22 |&& $9 ==|"'CODE'"|
|00000dc0| 29 20 7b 0a 2b 20 64 65 | 63 76 61 6c 20 3d 20 68 |) {.+ de|cval = h|
|00000dd0| 65 78 64 65 63 28 24 31 | 31 29 0a 2b 20 6f 74 73 |exdec($1|1).+ ots|
|00000de0| 69 7a 65 20 2b 3d 20 64 | 65 63 76 61 6c 0a 2b 20 |ize += d|ecval.+ |
|00000df0| 70 72 69 6e 74 66 20 28 | 22 25 31 32 73 20 43 4f |printf (|"%12s CO|
|00000e00| 44 45 20 25 34 73 20 25 | 37 69 5c 6e 22 2c 20 6d |DE %4s %|7i\n", m|
|00000e10| 6f 64 75 6c 65 5f 6e 61 | 6d 65 2c 20 24 31 31 2c |odule_na|me, $11,|
|00000e20| 20 64 65 63 76 61 6c 29 | 0a 2b 20 6a 2b 2b 20 7d | decval)|.+ j++ }|
|00000e30| 0a 2b 20 23 20 53 45 47 | 44 45 46 20 44 41 54 41 |.+ # SEG|DEF DATA|
|00000e40| 0a 2b 20 69 66 28 24 32 | 20 3d 3d 20 22 53 45 47 |.+ if($2| == "SEG|
|00000e50| 44 45 46 22 20 26 26 20 | 24 39 20 3d 3d 22 27 44 |DEF" && |$9 =="'D|
|00000e60| 41 54 41 27 22 29 20 7b | 0a 2b 20 64 65 63 76 61 |ATA'") {|.+ decva|
|00000e70| 6c 20 3d 20 68 65 78 64 | 65 63 28 24 31 31 29 0a |l = hexd|ec($11).|
|00000e80| 2b 20 6f 64 73 69 7a 65 | 20 2b 3d 20 64 65 63 76 |+ odsize| += decv|
|00000e90| 61 6c 0a 2b 20 70 72 69 | 6e 74 66 20 28 22 25 31 |al.+ pri|ntf ("%1|
|00000ea0| 32 73 20 44 41 54 41 20 | 25 34 73 20 25 37 69 5c |2s DATA |%4s %7i\|
|00000eb0| 6e 22 2c 20 6d 6f 64 75 | 6c 65 5f 6e 61 6d 65 2c |n", modu|le_name,|
|00000ec0| 20 24 31 31 2c 20 64 65 | 63 76 61 6c 29 0a 2b 20 | $11, de|cval).+ |
|00000ed0| 6a 2b 2b 20 7d 0a 2b 20 | 7d 20 23 20 77 68 69 6c |j++ }.+ |} # whil|
|00000ee0| 65 0a 2b 20 7d 20 23 20 | 65 6e 64 20 6f 66 20 42 |e.+ } # |end of B|
|00000ef0| 45 47 49 4e 20 73 65 63 | 74 69 6f 6e 0a 2b 20 23 |EGIN sec|tion.+ #|
|00000f00| 20 6e 6f 20 6d 61 69 6e | 20 6c 6f 6f 70 20 61 74 | no main| loop at|
|00000f10| 20 61 6c 6c 21 0a 2b 20 | 45 4e 44 20 7b 0a 2b 20 | all!.+ |END {.+ |
|00000f20| 23 20 70 72 69 6e 74 20 | 73 75 6d 6d 61 72 79 20 |# print |summary |
|00000f30| 61 6e 64 20 64 65 6c 65 | 74 65 20 77 6f 72 6b 20 |and dele|te work |
|00000f40| 66 69 6c 65 73 0a 2b 20 | 70 72 69 6e 74 66 20 28 |files.+ |printf (|
|00000f50| 22 25 69 20 4f 42 4a 20 | 66 69 6c 65 73 5c 6e 22 |"%i OBJ |files\n"|
|00000f60| 2c 20 6f 63 6f 75 6e 74 | 29 0a 2b 20 70 72 69 6e |, ocount|).+ prin|
|00000f70| 74 66 20 28 22 54 6f 74 | 61 6c 20 43 4f 44 45 20 |tf ("Tot|al CODE |
|00000f80| 73 69 7a 65 20 20 20 25 | 30 34 78 20 25 37 6c 69 |size %|04x %7li|
|00000f90| 20 62 79 74 65 73 5c 6e | 22 2c 20 6f 74 73 69 7a | bytes\n|", otsiz|
|00000fa0| 65 2c 20 6f 74 73 69 7a | 65 29 0a 2b 20 70 72 69 |e, otsiz|e).+ pri|
|00000fb0| 6e 74 66 20 28 22 54 6f | 74 61 6c 20 44 41 54 41 |ntf ("To|tal DATA|
|00000fc0| 20 73 69 7a 65 20 20 20 | 25 30 34 78 20 25 37 6c | size |%04x %7l|
|00000fd0| 69 20 62 79 74 65 73 5c | 6e 22 2c 20 6f 64 73 69 |i bytes\|n", odsi|
|00000fe0| 7a 65 2c 20 6f 64 73 69 | 7a 65 29 0a 2b 20 73 79 |ze, odsi|ze).+ sy|
|00000ff0| 73 74 65 6d 28 22 64 65 | 6c 20 22 41 52 47 56 5b |stem("de|l "ARGV[|
|00001000| 31 5d 29 0a 2b 20 73 79 | 73 74 65 6d 28 22 64 65 |1]).+ sy|stem("de|
|00001010| 6c 20 77 6f 72 6b 66 69 | 6c 65 2e 24 25 24 22 29 |l workfi|le.$%$")|
|00001020| 0a 2b 20 7d 20 20 23 20 | 65 6e 64 20 6f 66 20 45 |.+ } # |end of E|
|00001030| 4e 44 20 73 65 63 74 69 | 6f 6e 0a 2b 20 0a 2b 20 |ND secti|on.+ .+ |
|00001040| 23 20 4e 6f 20 73 63 61 | 6e 66 20 69 6e 20 61 77 |# No sca|nf in aw|
|00001050| 6b 2c 20 73 6f 20 63 6f | 6e 76 65 72 74 20 68 65 |k, so co|nvert he|
|00001060| 78 20 73 74 72 69 6e 67 | 20 78 20 74 6f 20 64 65 |x string| x to de|
|00001070| 63 69 6d 61 6c 20 74 68 | 65 20 68 61 72 64 20 77 |cimal th|e hard w|
|00001080| 61 79 0a 2b 20 66 75 6e | 63 74 69 6f 6e 20 68 65 |ay.+ fun|ction he|
|00001090| 78 64 65 63 20 28 78 29 | 20 7b 0a 2b 20 72 65 73 |xdec (x)| {.+ res|
|000010a0| 75 6c 74 20 3d 20 30 0a | 2b 20 66 6f 72 20 28 69 |ult = 0.|+ for (i|
|000010b0| 3d 31 3b 20 69 3c 3d 6c | 65 6e 67 74 68 28 78 29 |=1; i<=l|ength(x)|
|000010c0| 3b 20 69 2b 2b 29 20 7b | 0a 2b 20 74 68 65 63 68 |; i++) {|.+ thech|
|000010d0| 61 72 20 3d 20 73 75 62 | 73 74 72 28 78 2c 69 2c |ar = sub|str(x,i,|
|000010e0| 31 29 0a 2b 20 23 20 64 | 69 67 69 74 73 20 30 2d |1).+ # d|igits 0-|
|000010f0| 39 20 61 6e 64 20 6c 6f | 77 65 72 20 63 61 73 65 |9 and lo|wer case|
|00001100| 20 68 65 78 20 70 72 6f | 64 75 63 65 64 20 62 79 | hex pro|duced by|
|00001110| 20 54 44 55 4d 50 0a 2b | 20 23 20 75 73 65 20 62 | TDUMP.+| # use b|
|00001120| 72 75 74 65 20 66 6f 72 | 63 65 0a 2b 20 69 66 20 |rute for|ce.+ if |
|00001130| 28 74 68 65 63 68 61 72 | 20 3d 3d 20 22 30 22 29 |(thechar| == "0")|
|00001140| 20 7b 72 65 73 75 6c 74 | 20 3d 20 72 65 73 75 6c | {result| = resul|
|00001150| 74 2a 31 36 7d 0a 2b 20 | 69 66 20 28 74 68 65 63 |t*16}.+ |if (thec|
|00001160| 68 61 72 20 3d 3d 20 22 | 31 22 29 20 7b 72 65 73 |har == "|1") {res|
|00001170| 75 6c 74 20 3d 20 72 65 | 73 75 6c 74 2a 31 36 20 |ult = re|sult*16 |
|00001180| 2b 20 31 7d 0a 2b 20 69 | 66 20 28 74 68 65 63 68 |+ 1}.+ i|f (thech|
|00001190| 61 72 20 3d 3d 20 22 32 | 22 29 20 7b 72 65 73 75 |ar == "2|") {resu|
|000011a0| 6c 74 20 3d 20 72 65 73 | 75 6c 74 2a 31 36 20 2b |lt = res|ult*16 +|
|000011b0| 20 32 7d 0a 2b 20 69 66 | 20 28 74 68 65 63 68 61 | 2}.+ if| (thecha|
|000011c0| 72 20 3d 3d 20 22 33 22 | 29 20 7b 72 65 73 75 6c |r == "3"|) {resul|
|000011d0| 74 20 3d 20 72 65 73 75 | 6c 74 2a 31 36 20 2b 20 |t = resu|lt*16 + |
|000011e0| 33 7d 0a 2b 20 69 66 20 | 28 74 68 65 63 68 61 72 |3}.+ if |(thechar|
|000011f0| 20 3d 3d 20 22 34 22 29 | 20 7b 72 65 73 75 6c 74 | == "4")| {result|
|00001200| 20 3d 20 72 65 73 75 6c | 74 2a 31 36 20 2b 20 34 | = resul|t*16 + 4|
|00001210| 7d 0a 2b 20 69 66 20 28 | 74 68 65 63 68 61 72 20 |}.+ if (|thechar |
|00001220| 3d 3d 20 22 35 22 29 20 | 7b 72 65 73 75 6c 74 20 |== "5") |{result |
|00001230| 3d 20 72 65 73 75 6c 74 | 2a 31 36 20 2b 20 35 7d |= result|*16 + 5}|
|00001240| 0a 2b 20 69 66 20 28 74 | 68 65 63 68 61 72 20 3d |.+ if (t|hechar =|
|00001250| 3d 20 22 36 22 29 20 7b | 72 65 73 75 6c 74 20 3d |= "6") {|result =|
|00001260| 20 72 65 73 75 6c 74 2a | 31 36 20 2b 20 36 7d 0a | result*|16 + 6}.|
|00001270| 2b 20 69 66 20 28 74 68 | 65 63 68 61 72 20 3d 3d |+ if (th|echar ==|
|00001280| 20 22 37 22 29 20 7b 72 | 65 73 75 6c 74 20 3d 20 | "7") {r|esult = |
|00001290| 72 65 73 75 6c 74 2a 31 | 36 20 2b 20 37 7d 0a 2b |result*1|6 + 7}.+|
|000012a0| 20 69 66 20 28 74 68 65 | 63 68 61 72 20 3d 3d 20 | if (the|char == |
|000012b0| 22 38 22 29 20 7b 72 65 | 73 75 6c 74 20 3d 20 72 |"8") {re|sult = r|
|000012c0| 65 73 75 6c 74 2a 31 36 | 20 2b 20 38 7d 0a 2b 20 |esult*16| + 8}.+ |
|000012d0| 69 66 20 28 74 68 65 63 | 68 61 72 20 3d 3d 20 22 |if (thec|har == "|
|000012e0| 39 22 29 20 7b 72 65 73 | 75 6c 74 20 3d 20 72 65 |9") {res|ult = re|
|000012f0| 73 75 6c 74 2a 31 36 20 | 2b 20 39 7d 0a 2b 20 69 |sult*16 |+ 9}.+ i|
|00001300| 66 20 28 74 68 65 63 68 | 61 72 20 3d 3d 20 22 61 |f (thech|ar == "a|
|00001310| 22 29 20 7b 72 65 73 75 | 6c 74 20 3d 20 72 65 73 |") {resu|lt = res|
|00001320| 75 6c 74 2a 31 36 20 2b | 20 31 30 7d 0a 2b 20 69 |ult*16 +| 10}.+ i|
|00001330| 66 20 28 74 68 65 63 68 | 61 72 20 3d 3d 20 22 62 |f (thech|ar == "b|
|00001340| 22 29 20 7b 72 65 73 75 | 6c 74 20 3d 20 72 65 73 |") {resu|lt = res|
|00001350| 75 6c 74 2a 31 36 20 2b | 20 31 31 7d 0a 2b 20 69 |ult*16 +| 11}.+ i|
|00001360| 66 20 28 74 68 65 63 68 | 61 72 20 3d 3d 20 22 63 |f (thech|ar == "c|
|00001370| 22 29 20 7b 72 65 73 75 | 6c 74 20 3d 20 72 65 73 |") {resu|lt = res|
|00001380| 75 6c 74 2a 31 36 20 2b | 20 31 32 7d 0a 2b 20 69 |ult*16 +| 12}.+ i|
|00001390| 66 20 28 74 68 65 63 68 | 61 72 20 3d 3d 20 22 64 |f (thech|ar == "d|
|000013a0| 22 29 20 7b 72 65 73 75 | 6c 74 20 3d 20 72 65 73 |") {resu|lt = res|
|000013b0| 75 6c 74 2a 31 36 20 2b | 20 31 33 7d 0a 2b 20 69 |ult*16 +| 13}.+ i|
|000013c0| 66 20 28 74 68 65 63 68 | 61 72 20 3d 3d 20 22 65 |f (thech|ar == "e|
|000013d0| 22 29 20 7b 72 65 73 75 | 6c 74 20 3d 20 72 65 73 |") {resu|lt = res|
|000013e0| 75 6c 74 2a 31 36 20 2b | 20 31 34 7d 0a 2b 20 69 |ult*16 +| 14}.+ i|
|000013f0| 66 20 28 74 68 65 63 68 | 61 72 20 3d 3d 20 22 66 |f (thech|ar == "f|
|00001400| 22 29 20 7b 72 65 73 75 | 6c 74 20 3d 20 72 65 73 |") {resu|lt = res|
|00001410| 75 6c 74 2a 31 36 20 2b | 20 31 35 7d 0a 2b 20 7d |ult*16 +| 15}.+ }|
|00001420| 20 23 20 66 6f 72 20 28 | 69 3d 31 3b 69 3c 6c 65 | # for (|i=1;i<le|
|00001430| 6e 67 74 68 28 78 29 3b | 69 2b 2b 29 0a 2b 20 72 |ngth(x);|i++).+ r|
|00001440| 65 74 75 72 6e 20 72 65 | 73 75 6c 74 0a 2b 20 7d |eturn re|sult.+ }|
|00001450| 20 23 20 66 75 6e 63 74 | 69 6f 6e 20 68 65 78 64 | # funct|ion hexd|
|00001460| 65 63 20 28 78 29 0a 2b | 20 0a 2a 2a 2a 20 2f 64 |ec (x).+| .*** /d|
|00001470| 65 76 2f 6e 75 6c 6c 09 | 53 61 74 20 46 65 62 20 |ev/null.|Sat Feb |
|00001480| 20 36 20 30 32 3a 30 37 | 3a 30 30 20 31 39 39 33 | 6 02:07|:00 1993|
|00001490| 0a 2d 2d 2d 20 6d 73 64 | 6f 73 2f 61 72 67 76 6d |.--- msd|os/argvm|
|000014a0| 6b 73 2e 63 09 57 65 64 | 20 44 65 63 20 31 36 20 |ks.c.Wed| Dec 16 |
|000014b0| 31 38 3a 34 38 3a 30 31 | 20 31 39 39 32 0a 2a 2a |18:48:01| 1992.**|
|000014c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0a 2a 2a |********|*****.**|
|000014d0| 2a 20 30 20 2a 2a 2a 2a | 0a 2d 2d 2d 20 31 2c 31 |* 0 ****|.--- 1,1|
|000014e0| 30 36 20 2d 2d 2d 2d 0a | 2b 20 0a 2b 20 2f 2a 20 |06 ----.|+ .+ /* |
|000014f0| 20 61 72 67 76 6d 6b 73 | 2e 63 0a 2b 20 0a 2b 20 | argvmks|.c.+ .+ |
|00001500| 20 20 20 20 66 6f 72 20 | 4d 4b 53 20 4b 6f 72 6e | for |MKS Korn|
|00001510| 20 53 68 65 6c 6c 0a 2b | 20 0a 2b 20 20 20 20 20 | Shell.+| .+ |
|00001520| 49 66 20 79 6f 75 20 75 | 73 65 20 74 68 69 73 20 |If you u|se this |
|00001530| 66 69 6c 65 2c 20 61 64 | 64 20 2d 44 48 41 56 45 |file, ad|d -DHAVE|
|00001540| 5f 52 45 41 52 47 56 3d | 31 20 74 6f 20 79 6f 75 |_REARGV=|1 to you|
|00001550| 72 0a 2b 20 20 20 20 20 | 43 46 4c 41 47 53 0a 2b |r.+ |CFLAGS.+|
|00001560| 20 0a 2b 20 20 20 20 20 | 43 6f 6e 74 72 69 62 75 | .+ |Contribu|
|00001570| 74 65 64 20 62 79 20 4a | 61 63 6b 20 46 69 74 74 |ted by J|ack Fitt|
|00001580| 73 20 28 66 69 74 74 73 | 6a 25 77 6d 76 30 30 39 |s (fitts|j%wmv009|
|00001590| 40 62 63 73 61 69 63 2e | 62 6f 65 69 6e 67 2e 63 |@bcsaic.|boeing.c|
|000015a0| 6f 6d 29 0a 2b 20 0a 2b | 20 2a 2f 0a 2b 20 0a 2b |om).+ .+| */.+ .+|
|000015b0| 20 2f 2a 0a 2b 20 24 4c | 6f 67 3a 20 61 72 67 76 | /*.+ $L|og: argv|
|000015c0| 6d 6b 73 2e 63 2c 76 20 | 24 0a 2b 20 20 2a 20 52 |mks.c,v |$.+ * R|
|000015d0| 65 76 69 73 69 6f 6e 20 | 31 2e 32 20 20 31 39 39 |evision |1.2 199|
|000015e0| 32 2f 31 32 2f 31 37 20 | 20 30 32 3a 34 38 3a 30 |2/12/17 | 02:48:0|
|000015f0| 31 20 20 6d 69 6b 65 0a | 2b 20 20 2a 20 31 2e 31 |1 mike.|+ * 1.1|
|00001600| 2e 32 64 20 63 68 61 6e | 67 65 73 20 66 6f 72 20 |.2d chan|ges for |
|00001610| 44 4f 53 0a 2b 20 20 2a | 0a 2b 20 20 2a 20 52 65 |DOS.+ *|.+ * Re|
|00001620| 76 69 73 69 6f 6e 20 31 | 2e 31 20 20 31 39 39 32 |vision 1|.1 1992|
|00001630| 2f 31 32 2f 30 35 20 20 | 32 32 3a 33 38 3a 34 31 |/12/05 |22:38:41|
|00001640| 20 20 6d 69 6b 65 0a 2b | 20 20 2a 20 49 6e 69 74 | mike.+| * Init|
|00001650| 69 61 6c 20 72 65 76 69 | 73 69 6f 6e 0a 2b 20 20 |ial revi|sion.+ |
|00001660| 2a 0a 2b 20 2a 2f 0a 2b | 20 0a 2b 20 0a 2b 20 2f |*.+ */.+| .+ .+ /|
|00001670| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001680| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001690| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000016a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2f 0a 2b 20 2f |********|***/.+ /|
|000016b0| 2a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |* | |
|000016c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000016d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000016e0| 20 20 20 20 20 20 20 20 | 20 20 2a 2f 0a 2b 20 2f | | */.+ /|
|000016f0| 2a 20 70 72 6f 74 6f 74 | 79 70 65 73 20 66 6f 72 |* protot|ypes for|
|00001700| 20 72 65 61 72 67 76 20 | 20 20 20 20 20 20 20 20 | reargv | |
|00001710| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001720| 20 20 20 20 20 20 20 20 | 20 20 2a 2f 0a 2b 20 2f | | */.+ /|
|00001730| 2a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |* | |
|00001740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001750| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001760| 20 20 20 20 20 20 20 20 | 20 20 2a 2f 0a 2b 20 2f | | */.+ /|
|00001770| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001780| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001790| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000017a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2f 0a 2b 20 0a |********|***/.+ .|
|000017b0| 2b 20 76 6f 69 64 20 2a | 6d 61 6c 6c 6f 63 28 75 |+ void *|malloc(u|
|000017c0| 6e 73 69 67 6e 65 64 29 | 20 3b 0a 2b 20 63 68 61 |nsigned)| ;.+ cha|
|000017d0| 72 20 2a 20 62 61 73 65 | 6e 61 6d 65 20 28 20 63 |r * base|name ( c|
|000017e0| 68 61 72 20 2a 20 29 3b | 0a 2b 20 63 68 61 72 20 |har * );|.+ char |
|000017f0| 2a 73 74 72 63 70 79 28 | 63 68 61 72 2a 20 2c 20 |*strcpy(|char* , |
|00001800| 63 68 61 72 2a 29 20 3b | 0a 2b 20 0a 2b 20 0a 2b |char*) ;|.+ .+ .+|
|00001810| 20 2f 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | /******|********|
|00001820| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001830| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001840| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2f 0a 2b |********|*****/.+|
|00001850| 20 2f 2a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | /* | |
|00001860| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001880| 20 20 20 20 20 20 20 20 | 20 20 20 20 2a 2f 0a 2b | | */.+|
|00001890| 20 2f 2a 20 72 65 61 72 | 67 76 20 72 65 73 65 74 | /* rear|gv reset|
|000018a0| 20 61 72 67 63 2f 61 72 | 67 76 20 66 72 6f 6d 20 | argc/ar|gv from |
|000018b0| 65 6e 76 69 72 6f 6e 6d | 65 6e 74 20 66 6f 72 20 |environm|ent for |
|000018c0| 4d 4b 53 20 73 68 65 6c | 6c 20 20 20 2a 2f 0a 2b |MKS shel|l */.+|
|000018d0| 20 2f 2a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | /* | |
|000018e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000018f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001900| 20 20 20 20 20 20 20 20 | 20 20 20 20 2a 2f 0a 2b | | */.+|
|00001910| 20 2f 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | /******|********|
|00001920| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001930| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001940| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2f 0a 2b |********|*****/.+|
|00001950| 20 0a 2b 20 0a 2b 20 76 | 6f 69 64 20 72 65 61 72 | .+ .+ v|oid rear|
|00001960| 67 76 20 28 20 69 6e 74 | 20 2a 61 72 67 63 70 2c |gv ( int| *argcp,|
|00001970| 20 63 68 61 72 20 2a 2a | 2a 20 61 72 67 76 70 20 | char **|* argvp |
|00001980| 29 20 7b 0a 2b 20 0a 2b | 20 20 20 20 20 69 6e 74 |) {.+ .+| int|
|00001990| 20 69 20 3d 20 30 3b 0a | 2b 20 20 20 20 20 69 6e | i = 0;.|+ in|
|000019a0| 74 20 63 6e 74 20 3b 0a | 2b 20 20 20 20 20 63 68 |t cnt ;.|+ ch|
|000019b0| 61 72 20 2a 2a 20 76 3b | 0a 2b 20 20 20 20 20 65 |ar ** v;|.+ e|
|000019c0| 78 74 65 72 6e 20 63 68 | 61 72 20 2a 2a 65 6e 76 |xtern ch|ar **env|
|000019d0| 69 72 6f 6e 20 3b 0a 2b | 20 20 20 20 20 72 65 67 |iron ;.+| reg|
|000019e0| 69 73 74 65 72 20 63 68 | 61 72 20 2a 2a 70 65 20 |ister ch|ar **pe |
|000019f0| 3d 20 65 6e 76 69 72 6f | 6e 3b 0a 2b 20 0a 2b 20 |= enviro|n;.+ .+ |
|00001a00| 2f 2a 20 4d 4b 53 20 43 | 6f 6d 6d 61 6e 64 20 6c |/* MKS C|ommand l|
|00001a10| 69 6e 65 20 61 72 67 73 | 20 61 72 65 20 69 6e 20 |ine args| are in |
|00001a20| 74 68 65 20 66 69 72 73 | 74 20 6e 20 6c 69 6e 65 |the firs|t n line|
|00001a30| 73 20 6f 66 20 74 68 65 | 20 65 6e 76 69 72 6f 6e |s of the| environ|
|00001a40| 6d 65 6e 74 20 2a 2f 0a | 2b 20 2f 2a 20 65 61 63 |ment */.|+ /* eac|
|00001a50| 68 20 61 72 67 20 69 73 | 20 70 72 65 63 65 64 65 |h arg is| precede|
|00001a60| 64 20 77 69 74 68 20 61 | 20 74 69 6c 64 65 20 28 |d with a| tilde (|
|00001a70| 7e 29 2a 2f 0a 2b 20 0a | 2b 20 20 20 20 20 77 68 |~)*/.+ .|+ wh|
|00001a80| 69 6c 65 20 28 20 2a 2a | 28 70 65 2b 2b 29 20 3d |ile ( **|(pe++) =|
|00001a90| 3d 20 27 7e 27 20 29 0a | 2b 20 20 20 20 20 20 20 |= '~' ).|+ |
|00001aa0| 20 20 69 2b 2b 3b 0a 2b | 20 0a 2b 20 2f 2a 20 69 | i++;.+| .+ /* i|
|00001ab0| 66 20 6e 6f 20 74 69 6c | 64 65 20 66 6f 75 6e 64 |f no til|de found|
|00001ac0| 20 74 68 65 6e 20 6e 6f | 74 20 72 75 6e 6e 69 6e | then no|t runnin|
|00001ad0| 67 20 75 6e 64 65 72 20 | 4d 4b 53 20 2a 2f 0a 2b |g under |MKS */.+|
|00001ae0| 20 0a 2b 20 20 20 20 20 | 69 66 20 28 20 21 20 69 | .+ |if ( ! i|
|00001af0| 20 29 20 20 72 65 74 75 | 72 6e 20 3b 0a 2b 20 0a | ) retu|rn ;.+ .|
|00001b00| 2b 20 2f 2a 20 6d 61 6c | 6c 6f 63 20 73 70 61 63 |+ /* mal|loc spac|
|00001b10| 65 20 66 6f 72 20 61 72 | 72 61 79 20 6f 66 20 63 |e for ar|ray of c|
|00001b20| 68 61 72 20 70 6f 69 6e | 74 65 72 73 20 2a 2f 0a |har poin|ters */.|
|00001b30| 2b 20 0a 2b 20 20 20 20 | 20 69 66 20 28 20 21 20 |+ .+ | if ( ! |
|00001b40| 28 20 76 20 3d 20 28 20 | 63 68 61 72 20 2a 2a 20 |( v = ( |char ** |
|00001b50| 29 20 6d 61 6c 6c 6f 63 | 20 28 28 20 69 20 2b 20 |) malloc| (( i + |
|00001b60| 31 20 29 20 2a 20 73 69 | 7a 65 6f 66 20 28 20 63 |1 ) * si|zeof ( c|
|00001b70| 68 61 72 2a 20 29 29 29 | 20 29 0a 2b 20 20 20 20 |har* )))| ).+ |
|00001b80| 20 20 20 20 20 72 65 74 | 75 72 6e 20 31 3b 0a 2b | ret|urn 1;.+|
|00001b90| 20 0a 2b 20 2f 2a 20 73 | 65 74 20 61 72 67 63 20 | .+ /* s|et argc |
|00001ba0| 74 6f 20 6e 75 6d 62 65 | 72 20 6f 66 20 61 72 67 |to numbe|r of arg|
|00001bb0| 73 20 69 6e 20 65 6e 76 | 69 72 6f 6e 20 2a 2f 0a |s in env|iron */.|
|00001bc0| 2b 20 0a 2b 20 20 20 20 | 20 2a 61 72 67 63 70 20 |+ .+ | *argcp |
|00001bd0| 3d 20 63 6e 74 20 3d 20 | 69 3b 0a 2b 20 0a 2b 20 |= cnt = |i;.+ .+ |
|00001be0| 2f 2a 20 73 65 74 20 63 | 68 61 72 20 70 6f 69 6e |/* set c|har poin|
|00001bf0| 74 65 72 73 20 74 6f 20 | 65 61 63 68 20 63 6f 6d |ters to |each com|
|00001c00| 6d 61 6e 64 20 6c 69 6e | 65 20 61 72 67 20 2a 2f |mand lin|e arg */|
|00001c10| 0a 2b 20 2f 2a 20 6a 75 | 6d 70 20 6f 76 65 72 20 |.+ /* ju|mp over |
|00001c20| 74 68 65 20 74 69 6c 64 | 65 20 77 68 69 63 68 20 |the tild|e which |
|00001c30| 69 73 20 74 68 65 20 66 | 69 72 73 74 20 63 68 61 |is the f|irst cha|
|00001c40| 72 20 69 6e 20 65 61 63 | 68 20 73 74 72 69 6e 67 |r in eac|h string|
|00001c50| 20 2a 2f 0a 2b 20 0a 2b | 20 20 20 20 20 66 6f 72 | */.+ .+| for|
|00001c60| 20 28 20 69 20 3d 20 30 | 3b 20 69 20 3c 20 63 6e | ( i = 0|; i < cn|
|00001c70| 74 20 3b 20 69 2b 2b 20 | 29 0a 2b 20 20 20 20 20 |t ; i++ |).+ |
|00001c80| 20 20 20 20 76 5b 69 5d | 20 3d 20 65 6e 76 69 72 | v[i]| = envir|
|00001c90| 6f 6e 5b 69 5d 2b 31 3b | 0a 2b 20 0a 2b 20 20 20 |on[i]+1;|.+ .+ |
|00001ca0| 20 20 2f 2a 73 65 74 20 | 6c 61 73 74 20 61 72 67 | /*set |last arg|
|00001cb0| 20 74 6f 20 6e 75 6c 6c | 2a 2f 0a 2b 20 0a 2b 20 | to null|*/.+ .+ |
|00001cc0| 20 20 20 20 76 5b 63 6e | 74 5d 20 3d 20 28 63 68 | v[cn|t] = (ch|
|00001cd0| 61 72 20 2a 29 20 30 20 | 3b 0a 2b 20 20 20 20 20 |ar *) 0 |;.+ |
|00001ce0| 0a 2b 20 20 20 20 20 2f | 2a 73 74 72 69 70 20 6c |.+ /|*strip l|
|00001cf0| 65 61 64 69 6e 67 20 64 | 69 72 65 63 74 6f 72 79 |eading d|irectory|
|00001d00| 20 73 74 75 66 66 20 66 | 72 6f 6d 20 61 72 67 76 | stuff f|rom argv|
|00001d10| 5b 30 5d 20 2a 2f 0a 2b | 20 0a 2b 20 20 20 20 20 |[0] */.+| .+ |
|00001d20| 76 5b 30 5d 20 3d 20 62 | 61 73 65 6e 61 6d 65 28 |v[0] = b|asename(|
|00001d30| 76 5b 30 5d 29 3b 0a 2b | 20 0a 2b 20 20 20 20 20 |v[0]);.+| .+ |
|00001d40| 2a 61 72 67 76 70 20 3d | 20 76 3b 0a 2b 20 7d 0a |*argvp =| v;.+ }.|
|00001d50| 2b 20 0a 2b 20 0a 2b 20 | 2f 2a 2a 2a 2a 2a 2a 2a |+ .+ .+ |/*******|
|00001d60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001d70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001d80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001d90| 2a 2a 2a 2a 2f 0a 2b 20 | 2f 2a 20 20 20 20 20 20 |****/.+ |/* |
|00001da0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001db0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001dd0| 20 20 20 2a 2f 0a 2b 20 | 2f 2a 20 62 61 73 65 6e | */.+ |/* basen|
|00001de0| 61 6d 65 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ame | |
|00001df0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001e00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001e10| 20 20 20 2a 2f 0a 2b 20 | 2f 2a 20 20 20 20 20 20 | */.+ |/* |
|00001e20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001e30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001e50| 20 20 20 2a 2f 0a 2b 20 | 2f 2a 2a 2a 2a 2a 2a 2a | */.+ |/*******|
|00001e60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001e70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001e80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001e90| 2a 2a 2a 2a 2f 0a 2b 20 | 0a 2b 20 73 74 61 74 69 |****/.+ |.+ stati|
|00001ea0| 63 20 63 68 61 72 20 2a | 20 62 61 73 65 6e 61 6d |c char *| basenam|
|00001eb0| 65 20 28 20 63 68 61 72 | 20 2a 20 73 20 29 20 7b |e ( char| * s ) {|
|00001ec0| 0a 2b 20 0a 2b 20 20 20 | 20 20 72 65 67 69 73 74 |.+ .+ | regist|
|00001ed0| 65 72 20 63 68 61 72 20 | 2a 20 70 20 3b 0a 2b 20 |er char |* p ;.+ |
|00001ee0| 20 20 20 20 63 68 61 72 | 20 2a 6c 61 73 74 20 3b | char| *last ;|
|00001ef0| 0a 2b 20 20 20 20 20 0a | 2b 20 20 20 20 20 2f 2a |.+ .|+ /*|
|00001f00| 20 66 69 6e 64 20 74 68 | 65 20 6c 61 73 74 20 6f | find th|e last o|
|00001f10| 63 63 75 72 72 65 6e 63 | 65 20 6f 66 20 27 3a 27 |ccurrenc|e of ':'|
|00001f20| 20 27 5c 5c 27 20 6f 72 | 20 27 2f 27 20 2a 2f 0a | '\\' or| '/' */.|
|00001f30| 2b 20 20 20 20 20 70 20 | 3d 20 73 20 3b 20 20 6c |+ p |= s ; l|
|00001f40| 61 73 74 20 3d 20 28 63 | 68 61 72 20 2a 29 20 30 |ast = (c|har *) 0|
|00001f50| 20 3b 0a 2b 20 20 20 20 | 20 77 68 69 6c 65 20 28 | ;.+ | while (|
|00001f60| 20 2a 70 20 29 20 7b 0a | 2b 20 09 69 66 20 28 20 | *p ) {.|+ .if ( |
|00001f70| 2a 70 20 3d 3d 20 27 3a | 27 20 7c 7c 20 2a 70 20 |*p == ':|' || *p |
|00001f80| 3d 3d 20 27 5c 5c 27 20 | 7c 7c 20 2a 70 20 3d 3d |== '\\' ||| *p ==|
|00001f90| 20 27 2f 27 20 29 20 6c | 61 73 74 20 3d 20 70 20 | '/' ) l|ast = p |
|00001fa0| 3b 0a 2b 20 09 70 2b 2b | 20 3b 0a 2b 20 20 20 20 |;.+ .p++| ;.+ |
|00001fb0| 20 7d 0a 2b 20 0a 2b 20 | 20 20 20 20 72 65 74 75 | }.+ .+ | retu|
|00001fc0| 72 6e 20 6c 61 73 74 20 | 3f 20 6c 61 73 74 2b 31 |rn last |? last+1|
|00001fd0| 20 3a 20 73 20 3b 0a 2b | 20 7d 0a 2a 2a 2a 20 2f | : s ;.+| }.*** /|
|00001fe0| 64 65 76 2f 6e 75 6c 6c | 09 53 61 74 20 46 65 62 |dev/null|.Sat Feb|
|00001ff0| 20 20 36 20 30 32 3a 30 | 37 3a 30 30 20 31 39 39 | 6 02:0|7:00 199|
|00002000| 33 0a 2d 2d 2d 20 76 61 | 72 67 73 2e 68 09 46 72 |3.--- va|rgs.h.Fr|
|00002010| 69 20 4f 63 74 20 20 32 | 20 31 36 3a 32 33 3a 34 |i Oct 2| 16:23:4|
|00002020| 31 20 31 39 39 32 0a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |1 1992.*|********|
|00002030| 2a 2a 2a 2a 2a 2a 0a 2a | 2a 2a 20 30 20 2a 2a 2a |******.*|** 0 ***|
|00002040| 2a 0a 2d 2d 2d 20 31 2c | 35 36 20 2d 2d 2d 2d 0a |*.--- 1,|56 ----.|
|00002050| 2b 20 0a 2b 20 2f 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |+ .+ /**|********|
|00002060| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002070| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002080| 2a 2a 0a 2b 20 76 61 72 | 67 73 2e 68 0a 2b 20 63 |**.+ var|gs.h.+ c|
|00002090| 6f 70 79 72 69 67 68 74 | 20 31 39 39 32 20 4d 69 |opyright| 1992 Mi|
|000020a0| 63 68 61 65 6c 20 44 2e | 20 42 72 65 6e 6e 61 6e |chael D.| Brennan|
|000020b0| 0a 2b 20 0a 2b 20 54 68 | 69 73 20 69 73 20 61 20 |.+ .+ Th|is is a |
|000020c0| 73 6f 75 72 63 65 20 66 | 69 6c 65 20 66 6f 72 20 |source f|ile for |
|000020d0| 6d 61 77 6b 2c 20 61 6e | 20 69 6d 70 6c 65 6d 65 |mawk, an| impleme|
|000020e0| 6e 74 61 74 69 6f 6e 20 | 6f 66 0a 2b 20 74 68 65 |ntation |of.+ the|
|000020f0| 20 41 57 4b 20 70 72 6f | 67 72 61 6d 6d 69 6e 67 | AWK pro|gramming|
|00002100| 20 6c 61 6e 67 75 61 67 | 65 2e 0a 2b 20 0a 2b 20 | languag|e..+ .+ |
|00002110| 4d 61 77 6b 20 69 73 20 | 64 69 73 74 72 69 62 75 |Mawk is |distribu|
|00002120| 74 65 64 20 77 69 74 68 | 6f 75 74 20 77 61 72 72 |ted with|out warr|
|00002130| 61 6e 74 79 20 75 6e 64 | 65 72 20 74 68 65 20 74 |anty und|er the t|
|00002140| 65 72 6d 73 20 6f 66 0a | 2b 20 74 68 65 20 47 4e |erms of.|+ the GN|
|00002150| 55 20 47 65 6e 65 72 61 | 6c 20 50 75 62 6c 69 63 |U Genera|l Public|
|00002160| 20 4c 69 63 65 6e 73 65 | 2c 20 76 65 72 73 69 6f | License|, versio|
|00002170| 6e 20 32 2c 20 31 39 39 | 31 2e 0a 2b 20 2a 2a 2a |n 2, 199|1..+ ***|
|00002180| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002190| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000021a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2f 0a 2b 20 0a 2b 20 |********|*/.+ .+ |
|000021b0| 2f 2a 0a 2b 20 24 4c 6f | 67 3a 20 76 61 72 67 73 |/*.+ $Lo|g: vargs|
|000021c0| 2e 68 2c 76 20 24 0a 2b | 20 20 2a 20 52 65 76 69 |.h,v $.+| * Revi|
|000021d0| 73 69 6f 6e 20 31 2e 31 | 20 20 31 39 39 32 2f 31 |sion 1.1| 1992/1|
|000021e0| 30 2f 30 32 20 20 32 33 | 3a 32 33 3a 34 31 20 20 |0/02 23|:23:41 |
|000021f0| 6d 69 6b 65 0a 2b 20 20 | 2a 20 49 6e 69 74 69 61 |mike.+ |* Initia|
|00002200| 6c 20 72 65 76 69 73 69 | 6f 6e 0a 2b 20 20 2a 0a |l revisi|on.+ *.|
|00002210| 2b 20 2a 2f 0a 2b 20 0a | 2b 20 2f 2a 20 70 72 6f |+ */.+ .|+ /* pro|
|00002220| 76 69 64 65 73 20 63 6f | 6d 6d 6f 6e 20 69 6e 74 |vides co|mmon int|
|00002230| 65 72 66 61 63 65 20 74 | 6f 20 3c 73 74 64 61 72 |erface t|o <stdar|
|00002240| 67 2e 68 3e 20 6f 72 20 | 3c 76 61 72 61 72 67 73 |g.h> or |<varargs|
|00002250| 2e 68 3e 20 0a 2b 20 20 | 20 20 6f 6e 6c 79 20 75 |.h> .+ | only u|
|00002260| 73 65 64 20 66 6f 72 20 | 65 72 72 6f 72 20 6d 65 |sed for |error me|
|00002270| 73 73 61 67 65 73 0a 2b | 20 2a 2f 0a 2b 20 0a 2b |ssages.+| */.+ .+|
|00002280| 20 0a 2b 20 23 69 66 20 | 20 20 48 41 56 45 5f 53 | .+ #if | HAVE_S|
|00002290| 54 44 41 52 47 5f 48 20 | 3d 3d 20 30 0a 2b 20 23 |TDARG_H |== 0.+ #|
|000022a0| 69 6e 63 6c 75 64 65 20 | 3c 76 61 72 61 72 67 73 |include |<varargs|
|000022b0| 2e 68 3e 0a 2b 20 0a 2b | 20 23 69 66 6e 64 65 66 |.h>.+ .+| #ifndef|
|000022c0| 20 20 56 41 5f 41 4c 49 | 53 54 0a 2b 20 0a 2b 20 | VA_ALI|ST.+ .+ |
|000022d0| 23 64 65 66 69 6e 65 20 | 20 56 41 5f 41 4c 49 53 |#define | VA_ALIS|
|000022e0| 54 28 74 79 70 65 2c 20 | 61 72 67 29 20 20 28 76 |T(type, |arg) (v|
|000022f0| 61 5f 61 6c 69 73 74 29 | 20 76 61 5f 64 63 6c 20 |a_alist)| va_dcl |
|00002300| 7b 20 74 79 70 65 20 61 | 72 67 20 3b 0a 2b 20 23 |{ type a|rg ;.+ #|
|00002310| 64 65 66 69 6e 65 20 20 | 56 41 5f 41 4c 49 53 54 |define |VA_ALIST|
|00002320| 32 28 74 31 2c 61 31 2c | 74 32 2c 61 32 29 20 28 |2(t1,a1,|t2,a2) (|
|00002330| 76 61 5f 61 6c 69 73 74 | 29 20 76 61 5f 64 63 6c |va_alist|) va_dcl|
|00002340| 20 7b 20 74 31 20 61 31 | 20 3b 20 74 32 20 61 32 | { t1 a1| ; t2 a2|
|00002350| 20 3b 0a 2b 20 0a 2b 20 | 23 65 6e 64 69 66 0a 2b | ;.+ .+ |#endif.+|
|00002360| 20 0a 2b 20 23 64 65 66 | 69 6e 65 20 20 56 41 5f | .+ #def|ine VA_|
|00002370| 53 54 41 52 54 28 70 2c | 74 79 70 65 2c 20 6c 61 |START(p,|type, la|
|00002380| 73 74 29 20 20 76 61 5f | 73 74 61 72 74 28 70 29 |st) va_|start(p)|
|00002390| 20 3b 5c 0a 2b 20 20 20 | 20 20 20 20 20 20 20 20 | ;\.+ | |
|000023a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000023b0| 20 20 20 20 20 20 20 6c | 61 73 74 20 3d 20 76 61 | l|ast = va|
|000023c0| 5f 61 72 67 28 70 2c 74 | 79 70 65 29 0a 2b 20 0a |_arg(p,t|ype).+ .|
|000023d0| 2b 20 0a 2b 20 23 64 65 | 66 69 6e 65 20 20 56 41 |+ .+ #de|fine VA|
|000023e0| 5f 53 54 41 52 54 32 28 | 70 2c 74 31 2c 61 31 2c |_START2(|p,t1,a1,|
|000023f0| 74 32 2c 61 32 29 20 20 | 76 61 5f 73 74 61 72 74 |t2,a2) |va_start|
|00002400| 28 70 29 20 3b 5c 0a 2b | 20 20 20 20 20 20 20 20 |(p) ;\.+| |
|00002410| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002420| 20 20 20 20 20 20 20 20 | 20 20 20 61 31 20 3d 20 | | a1 = |
|00002430| 76 61 5f 61 72 67 28 70 | 2c 74 31 29 3b 5c 0a 2b |va_arg(p|,t1);\.+|
|00002440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002450| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002460| 20 20 20 61 32 20 3d 20 | 76 61 5f 61 72 67 28 70 | a2 = |va_arg(p|
|00002470| 2c 74 32 29 0a 2b 20 0a | 2b 20 23 65 6c 73 65 20 |,t2).+ .|+ #else |
|00002480| 20 2f 2a 20 48 41 56 45 | 5f 53 54 44 41 52 47 5f | /* HAVE|_STDARG_|
|00002490| 48 20 20 2a 2f 0a 2b 20 | 23 69 6e 63 6c 75 64 65 |H */.+ |#include|
|000024a0| 20 3c 73 74 64 61 72 67 | 2e 68 3e 0a 2b 20 0a 2b | <stdarg|.h>.+ .+|
|000024b0| 20 23 69 66 6e 64 65 66 | 20 20 56 41 5f 41 4c 49 | #ifndef| VA_ALI|
|000024c0| 53 54 0a 2b 20 23 64 65 | 66 69 6e 65 20 20 56 41 |ST.+ #de|fine VA|
|000024d0| 5f 41 4c 49 53 54 28 74 | 79 70 65 2c 20 61 72 67 |_ALIST(t|ype, arg|
|000024e0| 29 20 20 28 74 79 70 65 | 20 61 72 67 2c 20 2e 2e |) (type| arg, ..|
|000024f0| 2e 29 20 7b 0a 2b 20 23 | 64 65 66 69 6e 65 20 20 |.) {.+ #|define |
|00002500| 56 41 5f 41 4c 49 53 54 | 32 28 74 31 2c 61 31 2c |VA_ALIST|2(t1,a1,|
|00002510| 74 32 2c 61 32 29 20 20 | 28 74 31 20 61 31 2c 74 |t2,a2) |(t1 a1,t|
|00002520| 32 20 61 32 2c 2e 2e 2e | 29 20 7b 0a 2b 20 23 65 |2 a2,...|) {.+ #e|
|00002530| 6e 64 69 66 0a 2b 20 0a | 2b 20 23 64 65 66 69 6e |ndif.+ .|+ #defin|
|00002540| 65 20 20 56 41 5f 53 54 | 41 52 54 28 70 2c 74 79 |e VA_ST|ART(p,ty|
|00002550| 70 65 2c 6c 61 73 74 29 | 20 20 20 76 61 5f 73 74 |pe,last)| va_st|
|00002560| 61 72 74 28 70 2c 6c 61 | 73 74 29 0a 2b 20 0a 2b |art(p,la|st).+ .+|
|00002570| 20 23 64 65 66 69 6e 65 | 20 20 56 41 5f 53 54 41 | #define| VA_STA|
|00002580| 52 54 32 28 70 2c 74 31 | 2c 61 31 2c 74 32 2c 61 |RT2(p,t1|,a1,t2,a|
|00002590| 32 29 20 20 76 61 5f 73 | 74 61 72 74 28 70 2c 61 |2) va_s|tart(p,a|
|000025a0| 32 29 0a 2b 20 0a 2b 20 | 23 65 6e 64 69 66 0a 2b |2).+ .+ |#endif.+|
|000025b0| 20 0a 2a 2a 2a 20 2f 64 | 65 76 2f 6e 75 6c 6c 09 | .*** /d|ev/null.|
|000025c0| 53 61 74 20 46 65 62 20 | 20 36 20 30 32 3a 30 37 |Sat Feb | 6 02:07|
|000025d0| 3a 30 30 20 31 39 39 33 | 0a 2d 2d 2d 20 6d 73 64 |:00 1993|.--- msd|
|000025e0| 6f 73 2f 65 78 61 6d 70 | 6c 65 73 2f 73 72 63 73 |os/examp|les/srcs|
|000025f0| 74 61 74 32 2e 61 77 6b | 09 53 61 74 20 44 65 63 |tat2.awk|.Sat Dec|
|00002600| 20 20 35 20 31 33 3a 35 | 37 3a 31 34 20 31 39 39 | 5 13:5|7:14 199|
|00002610| 32 0a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |2.******|********|
|00002620| 2a 0a 2a 2a 2a 20 30 20 | 2a 2a 2a 2a 0a 2d 2d 2d |*.*** 0 |****.---|
|00002630| 20 31 2c 32 38 20 2d 2d | 2d 2d 0a 2b 20 23 20 42 | 1,28 --|--.+ # B|
|00002640| 65 6e 20 4d 79 65 72 73 | 20 3c 30 30 30 33 35 37 |en Myers| <000357|
|00002650| 31 34 30 30 40 6d 63 69 | 6d 61 69 6c 2e 63 6f 6d |1400@mci|mail.com|
|00002660| 3e 0a 2b 20 0a 2b 20 23 | 20 53 75 6d 20 75 70 20 |>.+ .+ #| Sum up |
|00002670| 6e 75 6d 62 65 72 2c 20 | 6c 69 6e 65 20 63 6f 75 |number, |line cou|
|00002680| 6e 74 2c 20 61 6e 64 20 | 73 69 7a 65 73 20 6f 66 |nt, and |sizes of|
|00002690| 20 53 4f 55 52 43 45 20 | 66 69 6c 65 73 20 69 6e | SOURCE |files in|
|000026a0| 20 63 75 72 72 65 6e 74 | 20 64 69 72 65 63 74 6f | current| directo|
|000026b0| 72 79 0a 2b 20 23 20 72 | 75 6e 20 77 69 74 68 20 |ry.+ # r|un with |
|000026c0| 0a 2b 20 23 20 20 20 20 | 20 20 20 62 6d 61 77 6b |.+ # | bmawk|
|000026d0| 20 2d 66 73 72 63 73 69 | 7a 65 2e 61 77 6b 20 77 | -fsrcsi|ze.awk w|
|000026e0| 6f 72 6b 66 69 6c 65 0a | 2b 20 23 20 6f 72 20 73 |orkfile.|+ # or s|
|000026f0| 69 6d 69 6c 61 72 20 63 | 6f 6d 6d 61 6e 64 20 73 |imilar c|ommand s|
|00002700| 79 6e 74 61 78 20 77 69 | 74 68 20 79 6f 75 72 20 |yntax wi|th your |
|00002710| 61 77 6b 20 70 72 6f 67 | 72 61 6d 0a 2b 20 23 20 |awk prog|ram.+ # |
|00002720| 77 68 65 72 65 20 77 6f | 72 6b 66 69 6c 65 20 69 |where wo|rkfile i|
|00002730| 73 20 61 20 77 6f 72 6b | 20 66 69 6c 65 0a 2b 20 |s a work| file.+ |
|00002740| 42 45 47 49 4e 20 7b 0a | 2b 20 23 20 72 65 64 69 |BEGIN {.|+ # redi|
|00002750| 72 65 63 74 69 6f 6e 20 | 64 6f 6e 65 20 62 79 20 |rection |done by |
|00002760| 73 68 65 6c 6c 65 64 20 | 63 6f 6d 6d 61 6e 64 0a |shelled |command.|
|00002770| 2b 20 73 79 73 74 65 6d | 28 22 64 69 72 20 2a 2e |+ system|("dir *.|
|00002780| 2a 20 3e 77 6f 72 6b 66 | 69 6c 65 22 29 0a 2b 20 |* >workf|ile").+ |
|00002790| 73 73 69 7a 65 20 3d 20 | 30 20 20 20 23 20 73 69 |ssize = |0 # si|
|000027a0| 7a 65 20 61 63 63 75 6d | 75 6c 61 74 6f 72 0a 2b |ze accum|ulator.+|
|000027b0| 20 73 6c 69 6e 65 73 20 | 3d 20 30 20 20 23 20 6c | slines |= 0 # l|
|000027c0| 69 6e 65 20 63 6f 75 6e | 74 65 72 0a 2b 20 73 63 |ine coun|ter.+ sc|
|000027d0| 6f 75 6e 74 20 3d 20 30 | 20 20 23 20 6f 62 6a 20 |ount = 0| # obj |
|000027e0| 63 6f 75 6e 74 65 72 0a | 2b 20 65 78 69 74 0a 2b |counter.|+ exit.+|
|000027f0| 20 7d 0a 2b 20 45 4e 44 | 20 7b 0a 2b 20 23 20 4e | }.+ END| {.+ # N|
|00002800| 6f 77 20 72 65 61 64 20 | 77 6f 72 6b 66 69 6c 65 |ow read |workfile|
|00002810| 20 62 61 63 6b 20 69 6e | 0a 2b 20 20 20 20 20 77 | back in|.+ w|
|00002820| 68 69 6c 65 20 28 67 65 | 74 6c 69 6e 65 20 3c 20 |hile (ge|tline < |
|00002830| 22 77 6f 72 6b 66 69 6c | 65 22 20 3e 20 30 29 20 |"workfil|e" > 0) |
|00002840| 7b 0a 2b 20 20 20 20 20 | 69 66 20 28 24 32 20 3d |{.+ |if ($2 =|
|00002850| 3d 20 22 43 22 20 7c 7c | 20 24 32 20 3d 3d 20 22 |= "C" ||| $2 == "|
|00002860| 48 22 20 7c 7c 20 24 32 | 20 3d 3d 20 22 43 50 50 |H" || $2| == "CPP|
|00002870| 22 20 7c 7c 20 24 32 20 | 3d 3d 20 22 48 50 50 22 |" || $2 |== "HPP"|
|00002880| 29 20 20 7b 0a 2b 20 09 | 66 69 6c 65 6e 61 6d 65 |) {.+ .|filename|
|00002890| 20 3d 20 73 70 72 69 6e | 74 66 28 22 25 73 2e 25 | = sprin|tf("%s.%|
|000028a0| 73 22 2c 20 24 31 2c 20 | 24 32 29 0a 2b 20 09 73 |s", $1, |$2).+ .s|
|000028b0| 73 69 7a 65 20 2b 3d 20 | 24 33 0a 2b 20 09 77 68 |size += |$3.+ .wh|
|000028c0| 69 6c 65 20 28 67 65 74 | 6c 69 6e 65 20 3c 20 66 |ile (get|line < f|
|000028d0| 69 6c 65 6e 61 6d 65 20 | 3e 20 30 29 20 7b 73 6c |ilename |> 0) {sl|
|000028e0| 69 6e 65 73 2b 2b 7d 0a | 2b 20 09 73 63 6f 75 6e |ines++}.|+ .scoun|
|000028f0| 74 2b 2b 0a 2b 20 09 7d | 0a 2b 20 20 20 20 20 7d |t++.+ .}|.+ }|
|00002900| 0a 2b 20 70 72 69 6e 74 | 20 73 63 6f 75 6e 74 20 |.+ print| scount |
|00002910| 22 20 66 69 6c 65 73 2c | 20 22 20 73 6c 69 6e 65 |" files,| " sline|
|00002920| 73 20 22 20 6c 69 6e 65 | 73 2c 20 74 6f 74 61 6c |s " line|s, total|
|00002930| 20 73 69 7a 65 20 22 20 | 73 73 69 7a 65 20 22 20 | size " |ssize " |
|00002940| 62 79 74 65 73 22 0a 2b | 20 73 79 73 74 65 6d 28 |bytes".+| system(|
|00002950| 22 64 65 6c 20 77 6f 72 | 6b 66 69 6c 65 22 29 0a |"del wor|kfile").|
|00002960| 2b 20 7d 0a 2a 2a 2a 20 | 2f 64 65 76 2f 6e 75 6c |+ }.*** |/dev/nul|
|00002970| 6c 09 53 61 74 20 46 65 | 62 20 20 36 20 30 32 3a |l.Sat Fe|b 6 02:|
|00002980| 30 37 3a 30 30 20 31 39 | 39 33 0a 2d 2d 2d 20 6d |07:00 19|93.--- m|
|00002990| 73 64 6f 73 2f 61 72 67 | 76 70 6f 6c 79 2e 63 09 |sdos/arg|vpoly.c.|
|000029a0| 54 68 75 20 44 65 63 20 | 31 37 20 32 30 3a 30 39 |Thu Dec |17 20:09|
|000029b0| 3a 34 33 20 31 39 39 32 | 0a 2a 2a 2a 2a 2a 2a 2a |:43 1992|.*******|
|000029c0| 2a 2a 2a 2a 2a 2a 2a 2a | 0a 2a 2a 2a 20 30 20 2a |********|.*** 0 *|
|000029d0| 2a 2a 2a 0a 2d 2d 2d 20 | 31 2c 38 30 20 2d 2d 2d |***.--- |1,80 ---|
|000029e0| 2d 0a 2b 20 0a 2b 20 2f | 2a 20 20 61 72 67 76 70 |-.+ .+ /|* argvp|
|000029f0| 6f 6c 79 2e 63 0a 2b 20 | 20 20 20 20 2d 2d 20 20 |oly.c.+ | -- |
|00002a00| 73 65 74 20 61 72 67 75 | 6d 65 6e 74 73 20 76 69 |set argu|ments vi|
|00002a10| 61 20 50 4f 4c 59 53 48 | 45 4c 4c 20 28 6e 6f 77 |a POLYSH|ELL (now|
|00002a20| 20 54 68 6f 6d 70 73 6f | 6e 20 53 68 65 6c 6c 3f | Thompso|n Shell?|
|00002a30| 3f 29 0a 2b 20 20 20 20 | 20 2d 2d 20 20 6e 6f 20 |?).+ | -- no |
|00002a40| 65 72 72 6f 72 73 2c 20 | 64 6f 6e 27 74 20 63 68 |errors, |don't ch|
|00002a50| 61 6e 67 65 20 61 6e 79 | 74 68 69 6e 67 20 69 66 |ange any|thing if|
|00002a60| 0a 2b 20 20 20 20 20 2d | 2d 20 20 69 74 20 73 65 |.+ -|- it se|
|00002a70| 65 6d 73 20 73 68 65 6c | 6c 20 69 73 20 6e 6f 74 |ems shel|l is not|
|00002a80| 20 61 63 74 69 76 61 74 | 65 64 20 20 20 2a 2f 0a | activat|ed */.|
|00002a90| 2b 20 0a 2b 20 2f 2a 20 | 50 4f 4c 59 53 48 45 4c |+ .+ /* |POLYSHEL|
|00002aa0| 4c 20 70 75 74 73 20 74 | 68 65 20 73 68 65 6c 6c |L puts t|he shell|
|00002ab0| 20 65 78 70 61 6e 64 65 | 64 20 63 6f 6d 6d 61 6e | expande|d comman|
|00002ac0| 64 20 6c 69 6e 65 0a 2b | 20 20 20 20 69 6e 20 74 |d line.+| in t|
|00002ad0| 68 65 20 65 6e 76 69 72 | 6f 6e 6d 65 6e 74 20 76 |he envir|onment v|
|00002ae0| 61 72 69 61 62 6c 65 20 | 43 4d 44 4c 49 4e 45 2e |ariable |CMDLINE.|
|00002af0| 20 20 41 73 63 69 69 20 | 30 20 69 73 0a 2b 20 20 | Ascii |0 is.+ |
|00002b00| 20 20 72 65 70 6c 61 63 | 65 64 20 62 79 20 5c 78 | replac|ed by \x|
|00002b10| 66 66 2e 0a 2b 20 2a 2f | 0a 2b 20 0a 2b 20 63 68 |ff..+ */|.+ .+ ch|
|00002b20| 61 72 20 2a 73 74 72 63 | 68 72 28 63 68 61 72 20 |ar *strc|hr(char |
|00002b30| 2a 2c 20 69 6e 74 29 2c | 20 2a 67 65 74 65 6e 76 |*, int),| *getenv|
|00002b40| 28 63 68 61 72 20 2a 29 | 20 3b 0a 2b 20 63 68 61 |(char *)| ;.+ cha|
|00002b50| 72 20 2a 62 61 73 65 6e | 61 6d 65 28 63 68 61 72 |r *basen|ame(char|
|00002b60| 20 2a 29 20 3b 0a 2b 20 | 76 6f 69 64 20 2a 6d 61 | *) ;.+ |void *ma|
|00002b70| 6c 6c 6f 63 28 75 6e 73 | 69 67 6e 65 64 29 20 3b |lloc(uns|igned) ;|
|00002b80| 0a 2b 20 69 6e 74 20 20 | 73 74 72 63 6d 70 28 63 |.+ int |strcmp(c|
|00002b90| 68 61 72 20 2a 2c 20 63 | 68 61 72 20 2a 29 20 3b |har *, c|har *) ;|
|00002ba0| 0a 2b 20 0a 2b 20 73 74 | 61 74 69 63 20 20 63 68 |.+ .+ st|atic ch|
|00002bb0| 61 72 20 2a 62 61 73 65 | 6e 61 6d 65 28 63 68 61 |ar *base|name(cha|
|00002bc0| 72 20 2a 73 29 0a 2b 20 | 2f 2a 20 73 74 72 69 70 |r *s).+ |/* strip|
|00002bd0| 20 70 61 74 68 20 61 6e | 64 20 65 78 74 65 6e 73 | path an|d extens|
|00002be0| 69 6f 6e 20 2c 20 75 70 | 63 61 73 65 20 74 68 65 |ion , up|case the|
|00002bf0| 20 72 65 73 74 20 2a 2f | 0a 2b 20 7b 20 0a 2b 20 | rest */|.+ { .+ |
|00002c00| 20 20 72 65 67 69 73 74 | 65 72 20 63 68 61 72 20 | regist|er char |
|00002c10| 2a 70 20 3b 0a 2b 20 0a | 2b 20 20 20 66 6f 72 20 |*p ;.+ .|+ for |
|00002c20| 28 20 70 20 3d 20 73 74 | 72 63 68 72 28 73 2c 30 |( p = st|rchr(s,0|
|00002c30| 29 20 3b 20 70 20 3e 20 | 73 20 3b 20 70 2d 2d 20 |) ; p > |s ; p-- |
|00002c40| 29 0a 2b 20 20 20 20 20 | 73 77 69 74 63 68 28 20 |).+ |switch( |
|00002c50| 70 5b 2d 31 5d 20 29 0a | 2b 20 20 20 20 20 20 7b |p[-1] ).|+ {|
|00002c60| 20 63 61 73 65 20 27 5c | 5c 27 20 3a 0a 2b 20 20 | case '\|\' :.+ |
|00002c70| 20 20 20 20 20 20 63 61 | 73 65 20 27 3a 27 20 20 | ca|se ':' |
|00002c80| 3a 0a 2b 20 20 20 20 20 | 20 20 20 63 61 73 65 20 |:.+ | case |
|00002c90| 27 2f 27 20 20 3a 20 20 | 72 65 74 75 72 6e 20 70 |'/' : |return p|
|00002ca0| 20 3b 0a 2b 20 20 20 20 | 20 20 20 20 63 61 73 65 | ;.+ | case|
|00002cb0| 20 27 2e 27 20 20 3a 20 | 20 70 5b 2d 31 5d 20 3d | '.' : | p[-1] =|
|00002cc0| 20 30 20 3b 20 20 62 72 | 65 61 6b 20 3b 0a 2b 20 | 0 ; br|eak ;.+ |
|00002cd0| 20 20 20 20 20 20 20 64 | 65 66 61 75 6c 74 20 20 | d|efault |
|00002ce0| 20 3a 0a 2b 20 09 20 20 | 20 20 69 66 20 28 20 70 | :.+ . | if ( p|
|00002cf0| 5b 2d 31 5d 20 3e 3d 20 | 27 61 27 20 26 26 20 70 |[-1] >= |'a' && p|
|00002d00| 5b 2d 31 5d 20 3c 3d 20 | 27 7a 27 20 29 20 20 20 |[-1] <= |'z' ) |
|00002d10| 70 5b 2d 31 5d 20 2d 3d | 20 33 32 20 3b 0a 2b 20 |p[-1] -=| 32 ;.+ |
|00002d20| 09 20 20 20 20 62 72 65 | 61 6b 20 3b 0a 2b 20 20 |. bre|ak ;.+ |
|00002d30| 20 20 20 20 7d 0a 2b 20 | 0a 2b 20 20 20 72 65 74 | }.+ |.+ ret|
|00002d40| 75 72 6e 20 20 70 20 3b | 0a 2b 20 7d 0a 2b 20 0a |urn p ;|.+ }.+ .|
|00002d50| 2b 20 2f 2a 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |+ /*----|--------|
|00002d60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0a 2b 20 20 20 72 65 |--------|-.+ re|
|00002d70| 61 72 67 76 20 20 2d 2d | 20 20 72 65 63 6f 6d 70 |argv --| recomp|
|00002d80| 75 74 65 20 20 61 72 67 | 63 20 61 6e 64 20 61 72 |ute arg|c and ar|
|00002d90| 67 76 20 66 6f 72 20 50 | 6f 6c 79 53 68 65 6c 6c |gv for P|olyShell|
|00002da0| 0a 2b 20 20 20 20 20 69 | 66 20 6e 6f 74 20 75 6e |.+ i|f not un|
|00002db0| 64 65 72 20 73 68 65 6c | 6c 20 64 6f 20 6e 6f 74 |der shel|l do not|
|00002dc0| 68 69 6e 67 0a 2b 20 20 | 2a 2d 2d 2d 2d 2d 2d 2d |hing.+ |*-------|
|00002dd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002de0| 2d 2d 2d 2d 2d 2d 2d 2d | 20 20 2a 2f 0a 2b 20 0a |--------| */.+ .|
|00002df0| 2b 20 65 78 74 65 72 6e | 20 20 63 68 61 72 20 2a |+ extern| char *|
|00002e00| 70 72 6f 67 6e 61 6d 65 | 20 3b 0a 2b 20 65 78 74 |progname| ;.+ ext|
|00002e10| 65 72 6e 20 20 75 6e 73 | 69 67 6e 65 64 20 63 68 |ern uns|igned ch|
|00002e20| 61 72 20 5f 6f 73 6d 61 | 6a 6f 72 20 3b 0a 2b 20 |ar _osma|jor ;.+ |
|00002e30| 0a 2b 20 76 6f 69 64 20 | 20 72 65 61 72 67 76 28 |.+ void | reargv(|
|00002e40| 69 6e 74 20 2a 61 72 67 | 63 70 20 2c 20 63 68 61 |int *arg|cp , cha|
|00002e50| 72 20 2a 2a 2a 61 72 67 | 76 70 29 0a 2b 20 7b 20 |r ***arg|vp).+ { |
|00002e60| 72 65 67 69 73 74 65 72 | 20 63 68 61 72 20 2a 70 |register| char *p|
|00002e70| 20 3b 0a 2b 20 20 20 63 | 68 61 72 20 2a 2a 76 20 | ;.+ c|har **v |
|00002e80| 2c 20 2a 71 2c 20 2a 63 | 6d 64 6c 69 6e 65 2c 20 |, *q, *c|mdline, |
|00002e90| 2a 2a 76 78 20 3b 0a 2b | 20 20 20 69 6e 74 20 63 |**vx ;.+| int c|
|00002ea0| 6e 74 2c 20 63 6e 74 78 | 20 3b 0a 2b 20 0a 2b 20 |nt, cntx| ;.+ .+ |
|00002eb0| 20 20 69 66 20 28 20 5f | 6f 73 6d 61 6a 6f 72 20 | if ( _|osmajor |
|00002ec0| 3d 3d 20 32 20 29 20 20 | 2f 2a 20 75 67 68 20 2a |== 2 ) |/* ugh *|
|00002ed0| 2f 0a 2b 20 20 20 20 20 | 20 28 2a 61 72 67 76 70 |/.+ | (*argvp|
|00002ee0| 29 5b 30 5d 20 3d 20 70 | 72 6f 67 6e 61 6d 65 20 |)[0] = p|rogname |
|00002ef0| 3b 0a 2b 20 20 20 65 6c | 73 65 20 20 28 2a 61 72 |;.+ el|se (*ar|
|00002f00| 67 76 70 29 5b 30 5d 20 | 3d 20 62 61 73 65 6e 61 |gvp)[0] |= basena|
|00002f10| 6d 65 28 20 28 2a 61 72 | 67 76 70 29 5b 30 5d 20 |me( (*ar|gvp)[0] |
|00002f20| 29 20 3b 0a 2b 20 0a 2b | 20 20 20 69 66 20 28 20 |) ;.+ .+| if ( |
|00002f30| 21 20 28 63 6d 64 6c 69 | 6e 65 20 3d 20 67 65 74 |! (cmdli|ne = get|
|00002f40| 65 6e 76 28 22 43 4d 44 | 4c 49 4e 45 22 29 29 20 |env("CMD|LINE")) |
|00002f50| 29 20 20 72 65 74 75 72 | 6e 20 3b 0a 2b 20 0a 2b |) retur|n ;.+ .+|
|00002f60| 20 20 20 69 66 20 28 20 | 2a 28 71 20 3d 20 73 74 | if ( |*(q = st|
|00002f70| 72 63 68 72 28 63 6d 64 | 6c 69 6e 65 2c 30 29 20 |rchr(cmd|line,0) |
|00002f80| 2d 20 31 29 20 21 3d 20 | 30 78 66 66 20 29 0a 2b |- 1) != |0xff ).+|
|00002f90| 20 20 20 20 20 20 20 72 | 65 74 75 72 6e 20 3b 20 | r|eturn ; |
|00002fa0| 20 2f 2a 20 20 73 68 65 | 78 70 61 6e 64 20 73 65 | /* she|xpand se|
|00002fb0| 74 20 77 72 6f 6e 67 20 | 2a 2f 0a 2b 20 0a 2b 20 |t wrong |*/.+ .+ |
|00002fc0| 20 20 66 6f 72 20 28 20 | 2a 71 20 3d 20 30 2c 20 | for ( |*q = 0, |
|00002fd0| 63 6e 74 20 3d 20 31 20 | 2c 20 70 20 3d 20 63 6d |cnt = 1 |, p = cm|
|00002fe0| 64 6c 69 6e 65 20 3b 20 | 70 20 3c 20 71 20 3b 20 |dline ; |p < q ; |
|00002ff0| 70 2b 2b 20 29 0a 2b 20 | 20 20 20 20 20 69 66 20 |p++ ).+ | if |
|00003000| 28 20 2a 70 20 3d 3d 20 | 30 78 66 66 20 29 20 7b |( *p == |0xff ) {|
|00003010| 20 63 6e 74 2b 2b 20 3b | 20 2a 70 20 3d 20 30 20 | cnt++ ;| *p = 0 |
|00003020| 3b 20 7d 0a 2b 20 0a 2b | 20 20 20 69 66 20 28 20 |; }.+ .+| if ( |
|00003030| 21 20 28 76 20 3d 20 28 | 63 68 61 72 20 2a 2a 29 |! (v = (|char **)|
|00003040| 20 6d 61 6c 6c 6f 63 28 | 28 63 6e 74 2b 31 29 2a | malloc(|(cnt+1)*|
|00003050| 73 69 7a 65 6f 66 28 63 | 68 61 72 2a 29 29 29 20 |sizeof(c|har*))) |
|00003060| 29 0a 2b 20 20 20 20 20 | 20 20 20 72 65 74 75 72 |).+ | retur|
|00003070| 6e 20 3b 20 20 2f 2a 20 | 73 68 6f 75 6c 64 6e 27 |n ; /* |shouldn'|
|00003080| 74 20 68 61 70 70 65 6e | 20 2a 2f 0a 2b 20 0a 2b |t happen| */.+ .+|
|00003090| 20 20 20 70 20 3d 20 63 | 6d 64 6c 69 6e 65 20 3b | p = c|mdline ;|
|000030a0| 0a 2b 20 20 20 76 78 20 | 3d 20 76 20 3b 20 63 6e |.+ vx |= v ; cn|
|000030b0| 74 78 20 3d 20 63 6e 74 | 20 3b 0a 2b 20 20 20 77 |tx = cnt| ;.+ w|
|000030c0| 68 69 6c 65 20 28 20 63 | 6e 74 20 29 0a 2b 20 20 |hile ( c|nt ).+ |
|000030d0| 20 20 7b 20 2a 76 2b 2b | 20 3d 20 70 20 3b 0a 2b | { *v++| = p ;.+|
|000030e0| 20 20 20 20 20 20 63 6e | 74 2d 2d 20 3b 0a 2b 20 | cn|t-- ;.+ |
|000030f0| 20 20 20 20 20 77 68 69 | 6c 65 20 28 20 2a 70 20 | whi|le ( *p |
|00003100| 29 20 20 70 2b 2b 20 3b | 0a 2b 20 20 20 20 20 20 |) p++ ;|.+ |
|00003110| 70 2b 2b 20 3b 0a 2b 20 | 20 20 20 7d 0a 2b 20 20 |p++ ;.+ | }.+ |
|00003120| 20 2a 76 20 3d 20 28 63 | 68 61 72 20 2a 29 20 30 | *v = (c|har *) 0|
|00003130| 20 3b 0a 2b 20 20 20 76 | 20 3d 20 76 78 20 3b 0a | ;.+ v| = vx ;.|
|00003140| 2b 20 0a 2b 20 20 20 76 | 5b 30 5d 20 3d 20 62 61 |+ .+ v|[0] = ba|
|00003150| 73 65 6e 61 6d 65 28 20 | 76 5b 30 5d 20 29 20 3b |sename( |v[0] ) ;|
|00003160| 0a 2b 20 20 20 69 66 20 | 28 20 73 74 72 63 6d 70 |.+ if |( strcmp|
|00003170| 28 76 5b 30 5d 2c 20 28 | 2a 61 72 67 76 70 29 5b |(v[0], (|*argvp)[|
|00003180| 30 5d 29 20 29 20 20 72 | 65 74 75 72 6e 20 20 3b |0]) ) r|eturn ;|
|00003190| 2f 2a 20 72 75 6e 6e 69 | 6e 67 20 75 6e 64 65 72 |/* runni|ng under|
|000031a0| 20 63 6f 6d 6d 61 6e 64 | 0a 2b 20 09 61 6e 64 20 | command|.+ .and |
|000031b0| 73 68 20 65 61 72 6c 69 | 65 72 20 20 2a 2f 0a 2b |sh earli|er */.+|
|000031c0| 20 20 20 2f 2a 20 72 75 | 6e 6e 69 6e 67 20 75 6e | /* ru|nning un|
|000031d0| 64 65 72 20 50 6f 6c 79 | 53 68 65 6c 6c 20 20 2a |der Poly|Shell *|
|000031e0| 2f 0a 2b 20 20 20 2a 61 | 72 67 63 70 20 3d 20 63 |/.+ *a|rgcp = c|
|000031f0| 6e 74 78 20 3b 20 20 2a | 61 72 67 76 70 20 3d 20 |ntx ; *|argvp = |
|00003200| 76 20 3b 0a 2b 20 7d 0a | 2a 2a 2a 20 2f 64 65 76 |v ;.+ }.|*** /dev|
|00003210| 2f 6e 75 6c 6c 09 53 61 | 74 20 46 65 62 20 20 36 |/null.Sa|t Feb 6|
|00003220| 20 30 32 3a 30 37 3a 30 | 30 20 31 39 39 33 0a 2d | 02:07:0|0 1993.-|
|00003230| 2d 2d 20 63 6f 6e 66 69 | 67 2f 7a 74 63 5f 64 6f |-- confi|g/ztc_do|
|00003240| 73 2e 68 09 53 61 74 20 | 44 65 63 20 32 36 20 31 |s.h.Sat |Dec 26 1|
|00003250| 37 3a 34 32 3a 35 30 20 | 31 39 39 32 0a 2a 2a 2a |7:42:50 |1992.***|
|00003260| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0a 2a 2a 2a |********|****.***|
|00003270| 20 30 20 2a 2a 2a 2a 0a | 2d 2d 2d 20 31 2c 35 38 | 0 ****.|--- 1,58|
|00003280| 20 2d 2d 2d 2d 0a 2b 20 | 0a 2b 20 2f 2a 2a 2a 2a | ----.+ |.+ /****|
|00003290| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000032a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000032b0| 2a 2a 2a 2a 2a 2a 2a 2a | 0a 2b 20 7a 74 63 5f 64 |********|.+ ztc_d|
|000032c0| 6f 73 2e 68 0a 2b 20 63 | 6f 70 79 72 69 67 68 74 |os.h.+ c|opyright|
|000032d0| 20 31 39 39 32 2c 20 4d | 69 63 68 61 65 6c 20 44 | 1992, M|ichael D|
|000032e0| 2e 20 42 72 65 6e 6e 61 | 6e 0a 2b 20 0a 2b 20 54 |. Brenna|n.+ .+ T|
|000032f0| 68 69 73 20 69 73 20 61 | 20 73 6f 75 72 63 65 20 |his is a| source |
|00003300| 66 69 6c 65 20 66 6f 72 | 20 6d 61 77 6b 2c 20 61 |file for| mawk, a|
|00003310| 6e 20 69 6d 70 6c 65 6d | 65 6e 74 61 74 69 6f 6e |n implem|entation|
|00003320| 20 6f 66 0a 2b 20 74 68 | 65 20 41 57 4b 20 70 72 | of.+ th|e AWK pr|
|00003330| 6f 67 72 61 6d 6d 69 6e | 67 20 6c 61 6e 67 75 61 |ogrammin|g langua|
|00003340| 67 65 2e 0a 2b 20 0a 2b | 20 4d 61 77 6b 20 69 73 |ge..+ .+| Mawk is|
|00003350| 20 64 69 73 74 72 69 62 | 75 74 65 64 20 77 69 74 | distrib|uted wit|
|00003360| 68 6f 75 74 20 77 61 72 | 72 61 6e 74 79 20 75 6e |hout war|ranty un|
|00003370| 64 65 72 20 74 68 65 20 | 74 65 72 6d 73 20 6f 66 |der the |terms of|
|00003380| 0a 2b 20 74 68 65 20 47 | 4e 55 20 47 65 6e 65 72 |.+ the G|NU Gener|
|00003390| 61 6c 20 50 75 62 6c 69 | 63 20 4c 69 63 65 6e 73 |al Publi|c Licens|
|000033a0| 65 2c 20 76 65 72 73 69 | 6f 6e 20 32 2c 20 31 39 |e, versi|on 2, 19|
|000033b0| 39 31 2e 0a 2b 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |91..+ **|********|
|000033c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000033d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000033e0| 2a 2a 2f 0a 2b 20 0a 2b | 20 2f 2a 20 5a 6f 72 74 |**/.+ .+| /* Zort|
|000033f0| 65 63 68 20 43 2b 2b 20 | 75 6e 64 65 72 20 4d 53 |ech C++ |under MS|
|00003400| 44 4f 53 20 2a 2f 0a 2b | 20 0a 2b 20 2f 2a 20 24 |DOS */.+| .+ /* $|
|00003410| 4c 6f 67 3a 20 7a 74 63 | 5f 64 6f 73 2e 68 2c 76 |Log: ztc|_dos.h,v|
|00003420| 20 24 0a 2b 20 20 2a 20 | 52 65 76 69 73 69 6f 6e | $.+ * |Revision|
|00003430| 20 31 2e 31 20 20 31 39 | 39 32 2f 31 32 2f 32 37 | 1.1 19|92/12/27|
|00003440| 20 20 30 31 3a 34 32 3a | 35 30 20 20 6d 69 6b 65 | 01:42:|50 mike|
|00003450| 0a 2b 20 20 2a 20 49 6e | 69 74 69 61 6c 20 72 65 |.+ * In|itial re|
|00003460| 76 69 73 69 6f 6e 0a 2b | 20 20 2a 0a 2b 20 20 2a |vision.+| *.+ *|
|00003470| 20 52 65 76 69 73 69 6f | 6e 20 34 2e 32 2e 31 20 | Revisio|n 4.2.1 |
|00003480| 20 39 32 2f 30 36 2f 30 | 31 20 20 30 30 3a 30 30 | 92/06/0|1 00:00|
|00003490| 3a 30 30 20 20 62 6d 79 | 65 72 73 0a 2b 20 20 2a |:00 bmy|ers.+ *|
|000034a0| 20 63 72 65 61 74 65 20 | 5a 6f 72 74 65 63 68 20 | create |Zortech |
|000034b0| 43 2b 2b 20 76 65 72 73 | 69 6f 6e 20 66 72 6f 6d |C++ vers|ion from|
|000034c0| 20 42 6f 72 6c 61 6e 64 | 20 43 2b 2b 20 76 65 72 | Borland| C++ ver|
|000034d0| 73 69 6f 6e 0a 2b 20 20 | 2a 20 5a 54 43 20 68 61 |sion.+ |* ZTC ha|
|000034e0| 73 20 6d 61 74 68 65 72 | 72 20 66 75 6e 63 74 69 |s mather|r functi|
|000034f0| 6f 6e 20 61 6e 64 20 6e | 6f 20 69 6e 66 6f 20 66 |on and n|o info f|
|00003500| 6f 72 20 66 6c 6f 61 74 | 69 6e 67 20 70 6f 69 6e |or float|ing poin|
|00003510| 74 20 65 78 63 65 70 74 | 69 6f 6e 73 2e 0a 2b 20 |t except|ions..+ |
|00003520| 20 2a 0a 2b 20 2a 2f 0a | 2b 20 0a 2b 20 23 69 66 | *.+ */.|+ .+ #if|
|00003530| 6e 64 65 66 20 20 20 43 | 4f 4e 46 49 47 5f 48 0a |ndef C|ONFIG_H.|
|00003540| 2b 20 23 64 65 66 69 6e | 65 20 20 20 43 4f 4e 46 |+ #defin|e CONF|
|00003550| 49 47 5f 48 20 20 20 20 | 20 20 31 0a 2b 20 0a 2b |IG_H | 1.+ .+|
|00003560| 20 23 64 65 66 69 6e 65 | 20 20 20 4d 53 44 4f 53 | #define| MSDOS|
|00003570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003580| 20 31 0a 2b 20 0a 2b 20 | 23 64 65 66 69 6e 65 20 | 1.+ .+ |#define |
|00003590| 20 20 48 41 56 45 5f 50 | 52 4f 54 4f 53 20 20 20 | HAVE_P|ROTOS |
|000035a0| 20 20 20 20 20 20 20 20 | 31 0a 2b 20 23 64 65 66 | |1.+ #def|
|000035b0| 69 6e 65 20 20 20 48 41 | 56 45 5f 53 54 44 41 52 |ine HA|VE_STDAR|
|000035c0| 47 5f 48 20 20 20 20 20 | 20 20 20 20 31 0a 2b 20 |G_H | 1.+ |
|000035d0| 23 64 65 66 69 6e 65 20 | 20 20 48 41 56 45 5f 53 |#define | HAVE_S|
|000035e0| 54 44 4c 49 42 5f 48 09 | 09 31 0a 2b 20 23 64 65 |TDLIB_H.|.1.+ #de|
|000035f0| 66 69 6e 65 20 20 20 48 | 41 56 45 5f 54 49 4d 45 |fine H|AVE_TIME|
|00003600| 5f 48 09 09 31 0a 2b 20 | 23 64 65 66 69 6e 65 20 |_H..1.+ |#define |
|00003610| 20 20 48 41 56 45 5f 53 | 54 52 45 52 52 4f 52 09 | HAVE_S|TRERROR.|
|00003620| 09 31 0a 2b 20 0a 2b 20 | 23 64 65 66 69 6e 65 20 |.1.+ .+ |#define |
|00003630| 20 20 48 41 56 45 5f 4d | 41 54 48 45 52 52 20 20 | HAVE_M|ATHERR |
|00003640| 20 20 20 20 20 20 20 20 | 30 0a 2b 20 0a 2b 20 0a | |0.+ .+ .|
|00003650| 2b 20 0a 2b 20 0a 2b 20 | 23 64 65 66 69 6e 65 20 |+ .+ .+ |#define |
|00003660| 20 46 50 45 5f 54 52 41 | 50 53 5f 4f 4e 09 09 31 | FPE_TRA|PS_ON..1|
|00003670| 0a 2b 20 23 64 65 66 69 | 6e 65 20 20 4e 4f 49 4e |.+ #defi|ne NOIN|
|00003680| 46 4f 5f 53 49 47 46 50 | 45 20 20 20 20 20 20 20 |FO_SIGFP|E |
|00003690| 20 20 20 31 0a 2b 20 0a | 2b 20 0a 2b 20 23 69 66 | 1.+ .|+ .+ #if|
|000036a0| 6e 64 65 66 20 20 20 48 | 41 56 45 5f 53 4d 41 4c |ndef H|AVE_SMAL|
|000036b0| 4c 5f 4d 45 4d 4f 52 59 | 20 20 20 2f 2a 20 61 6c |L_MEMORY| /* al|
|000036c0| 6c 6f 77 20 6c 61 72 67 | 65 20 6d 6f 64 65 6c 20 |low larg|e model |
|000036d0| 6f 76 65 72 72 69 64 65 | 20 2a 2f 0a 2b 20 23 64 |override| */.+ #d|
|000036e0| 65 66 69 6e 65 20 20 20 | 48 41 56 45 5f 53 4d 41 |efine |HAVE_SMA|
|000036f0| 4c 4c 5f 4d 45 4d 4f 52 | 59 20 20 20 20 20 31 0a |LL_MEMOR|Y 1.|
|00003700| 2b 20 23 65 6e 64 69 66 | 0a 2b 20 0a 2b 20 23 69 |+ #endif|.+ .+ #i|
|00003710| 66 20 20 48 41 56 45 5f | 53 4d 41 4c 4c 5f 4d 45 |f HAVE_|SMALL_ME|
|00003720| 4d 4f 52 59 3d 3d 30 0a | 2b 20 2f 2a 20 68 6f 77 |MORY==0.|+ /* how|
|00003730| 20 74 6f 20 74 65 73 74 | 20 66 61 72 20 70 6f 69 | to test| far poi|
|00003740| 6e 74 65 72 73 20 68 61 | 76 65 20 74 68 65 20 73 |nters ha|ve the s|
|00003750| 61 6d 65 20 73 65 67 6d | 65 6e 74 20 2a 2f 0a 2b |ame segm|ent */.+|
|00003760| 20 23 69 6e 63 6c 75 64 | 65 20 3c 64 6f 73 2e 68 | #includ|e <dos.h|
|00003770| 3e 0a 2b 20 23 64 65 66 | 69 6e 65 20 20 53 41 4d |>.+ #def|ine SAM|
|00003780| 45 53 45 47 28 70 2c 71 | 29 09 28 46 50 5f 53 45 |ESEG(p,q|).(FP_SE|
|00003790| 47 28 70 29 3d 3d 46 50 | 5f 53 45 47 28 71 29 29 |G(p)==FP|_SEG(q))|
|000037a0| 0a 2b 20 23 65 6e 64 69 | 66 0a 2b 20 0a 2b 20 23 |.+ #endi|f.+ .+ #|
|000037b0| 69 6e 63 6c 75 64 65 20 | 22 63 6f 6e 66 69 67 2f |include |"config/|
|000037c0| 49 64 65 66 61 75 6c 74 | 2e 68 22 0a 2b 20 0a 2b |Idefault|.h".+ .+|
|000037d0| 20 0a 2b 20 23 65 6e 64 | 69 66 20 20 2f 2a 20 43 | .+ #end|if /* C|
|000037e0| 4f 4e 46 49 47 5f 48 20 | 20 2a 2f 0a 2a 2a 2a 20 |ONFIG_H | */.*** |
|000037f0| 2f 64 65 76 2f 6e 75 6c | 6c 09 53 61 74 20 46 65 |/dev/nul|l.Sat Fe|
|00003800| 62 20 20 36 20 30 32 3a | 30 37 3a 30 30 20 31 39 |b 6 02:|07:00 19|
|00003810| 39 33 0a 2d 2d 2d 20 6d | 73 64 6f 73 2f 65 78 61 |93.--- m|sdos/exa|
|00003820| 6d 70 6c 65 73 2f 6f 62 | 6a 73 74 61 74 2e 61 77 |mples/ob|jstat.aw|
|00003830| 6b 09 53 61 74 20 44 65 | 63 20 20 35 20 31 33 3a |k.Sat De|c 5 13:|
|00003840| 35 37 3a 31 32 20 31 39 | 39 32 0a 2a 2a 2a 2a 2a |57:12 19|92.*****|
|00003850| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0a 2a 2a 2a 20 30 |********|**.*** 0|
|00003860| 20 2a 2a 2a 2a 0a 2d 2d | 2d 20 31 2c 32 30 20 2d | ****.--|- 1,20 -|
|00003870| 2d 2d 2d 0a 2b 20 23 20 | 42 65 6e 20 4d 79 65 72 |---.+ # |Ben Myer|
|00003880| 73 20 3c 30 30 30 33 35 | 37 31 34 30 30 40 6d 63 |s <00035|71400@mc|
|00003890| 69 6d 61 69 6c 2e 63 6f | 6d 3e 0a 2b 20 0a 2b 20 |imail.co|m>.+ .+ |
|000038a0| 23 20 53 75 6d 20 75 70 | 20 73 69 7a 65 73 20 6f |# Sum up| sizes o|
|000038b0| 66 20 4f 42 4a 20 66 69 | 6c 65 73 20 69 6e 20 63 |f OBJ fi|les in c|
|000038c0| 75 72 72 65 6e 74 20 64 | 69 72 65 63 74 6f 72 79 |urrent d|irectory|
|000038d0| 0a 2b 20 23 20 41 20 63 | 6c 75 6d 73 79 20 73 63 |.+ # A c|lumsy sc|
|000038e0| 72 69 70 74 20 74 6f 20 | 63 6f 75 6e 74 20 4f 42 |ript to |count OB|
|000038f0| 4a 73 20 61 6e 64 20 73 | 75 6d 20 75 70 20 74 68 |Js and s|um up th|
|00003900| 65 69 72 20 73 69 7a 65 | 73 0a 2b 20 23 20 72 75 |eir size|s.+ # ru|
|00003910| 6e 20 77 69 74 68 20 0a | 2b 20 23 20 20 20 20 20 |n with .|+ # |
|00003920| 20 20 62 6d 61 77 6b 20 | 2d 66 6f 62 6a 73 69 7a | bmawk |-fobjsiz|
|00003930| 65 2e 61 77 6b 20 77 6f | 72 6b 66 69 6c 65 0a 2b |e.awk wo|rkfile.+|
|00003940| 20 23 20 6f 72 20 73 69 | 6d 69 6c 61 72 20 63 6f | # or si|milar co|
|00003950| 6d 6d 61 6e 64 20 73 79 | 6e 74 61 78 20 77 69 74 |mmand sy|ntax wit|
|00003960| 68 20 79 6f 75 72 20 61 | 77 6b 20 70 72 6f 67 72 |h your a|wk progr|
|00003970| 61 6d 0a 2b 20 23 20 77 | 68 65 72 65 20 77 6f 72 |am.+ # w|here wor|
|00003980| 6b 66 69 6c 65 20 69 73 | 20 61 20 77 6f 72 6b 20 |kfile is| a work |
|00003990| 66 69 6c 65 0a 2b 20 42 | 45 47 49 4e 20 7b 0a 2b |file.+ B|EGIN {.+|
|000039a0| 20 23 20 72 65 64 69 72 | 65 63 74 69 6f 6e 20 64 | # redir|ection d|
|000039b0| 6f 6e 65 20 62 79 20 73 | 68 65 6c 6c 65 64 20 63 |one by s|helled c|
|000039c0| 6f 6d 6d 61 6e 64 0a 2b | 20 73 79 73 74 65 6d 28 |ommand.+| system(|
|000039d0| 22 64 69 72 20 2a 2e 6f | 62 6a 20 3e 22 20 41 52 |"dir *.o|bj >" AR|
|000039e0| 47 56 5b 31 5d 29 0a 2b | 20 6f 73 69 7a 65 20 3d |GV[1]).+| osize =|
|000039f0| 20 30 20 20 20 23 20 73 | 69 7a 65 20 61 63 63 75 | 0 # s|ize accu|
|00003a00| 6d 75 6c 61 74 6f 72 0a | 2b 20 6f 63 6f 75 6e 74 |mulator.|+ ocount|
|00003a10| 20 3d 20 30 20 20 23 20 | 6f 62 6a 20 63 6f 75 6e | = 0 # |obj coun|
|00003a20| 74 65 72 0a 2b 20 7d 0a | 2b 20 23 20 4e 6f 77 20 |ter.+ }.|+ # Now |
|00003a30| 72 65 61 64 20 77 6f 72 | 6b 66 69 6c 65 20 62 61 |read wor|kfile ba|
|00003a40| 63 6b 2c 20 73 6b 69 70 | 70 69 6e 67 20 6c 69 6e |ck, skip|ping lin|
|00003a50| 65 73 20 74 68 61 74 20 | 61 72 65 20 6e 6f 74 20 |es that |are not |
|00003a60| 66 69 6c 65 73 0a 2b 20 | 24 32 20 3d 3d 20 22 4f |files.+ |$2 == "O|
|00003a70| 42 4a 22 20 7b 20 6f 73 | 69 7a 65 20 2b 3d 20 24 |BJ" { os|ize += $|
|00003a80| 33 20 3b 20 6f 63 6f 75 | 6e 74 2b 2b 20 7d 0a 2b |3 ; ocou|nt++ }.+|
|00003a90| 20 45 4e 44 20 7b 0a 2b | 20 70 72 69 6e 74 20 6f | END {.+| print o|
|00003aa0| 63 6f 75 6e 74 20 22 20 | 4f 42 4a 73 2c 20 74 6f |count " |OBJs, to|
|00003ab0| 74 61 6c 20 73 69 7a 65 | 20 22 20 6f 73 69 7a 65 |tal size| " osize|
|00003ac0| 20 22 20 62 79 74 65 73 | 22 0a 2b 20 73 79 73 74 | " bytes|".+ syst|
|00003ad0| 65 6d 28 22 64 65 6c 20 | 22 41 52 47 56 5b 31 5d |em("del |"ARGV[1]|
|00003ae0| 29 0a 2b 20 7d 0a 2a 2a | 2a 20 2f 64 65 76 2f 6e |).+ }.**|* /dev/n|
|00003af0| 75 6c 6c 09 53 61 74 20 | 46 65 62 20 20 36 20 30 |ull.Sat |Feb 6 0|
|00003b00| 32 3a 30 37 3a 30 30 20 | 31 39 39 33 0a 2d 2d 2d |2:07:00 |1993.---|
|00003b10| 20 6d 73 64 6f 73 2f 65 | 78 61 6d 70 6c 65 73 2f | msdos/e|xamples/|
|00003b20| 61 64 64 5f 63 72 2e 61 | 77 6b 09 53 61 74 20 44 |add_cr.a|wk.Sat D|
|00003b30| 65 63 20 20 35 20 31 33 | 3a 35 37 3a 31 31 20 31 |ec 5 13|:57:11 1|
|00003b40| 39 39 32 0a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |992.****|********|
|00003b50| 2a 2a 2a 0a 2a 2a 2a 20 | 30 20 2a 2a 2a 2a 0a 2d |***.*** |0 ****.-|
|00003b60| 2d 2d 20 31 2c 39 33 20 | 2d 2d 2d 2d 0a 2b 20 0a |-- 1,93 |----.+ .|
|00003b70| 2b 20 23 20 61 64 64 5f | 63 72 2e 61 77 6b 0a 2b |+ # add_|cr.awk.+|
|00003b80| 20 23 20 63 6f 6e 76 65 | 72 74 73 20 66 72 6f 6d | # conve|rts from|
|00003b90| 20 55 6e 69 78 20 28 4c | 46 20 6f 6e 6c 79 29 20 | Unix (L|F only) |
|00003ba0| 74 65 78 74 20 66 69 6c | 65 73 20 74 6f 0a 2b 20 |text fil|es to.+ |
|00003bb0| 23 20 44 4f 53 20 28 43 | 52 4c 46 29 20 74 65 78 |# DOS (C|RLF) tex|
|00003bc0| 74 20 66 69 6c 65 73 0a | 2b 20 23 0a 2b 20 23 20 |t files.|+ #.+ # |
|00003bd0| 77 6f 72 6b 73 20 6f 6e | 20 62 6f 74 68 20 75 6e |works on| both un|
|00003be0| 69 78 20 61 6e 64 20 64 | 6f 73 20 0a 2b 20 23 20 |ix and d|os .+ # |
|00003bf0| 69 66 20 75 73 65 64 20 | 6f 6e 20 75 6e 69 78 20 |if used |on unix |
|00003c00| 63 68 61 6e 67 65 20 43 | 4f 50 59 20 61 6e 64 20 |change C|OPY and |
|00003c10| 44 45 4c 20 69 6e 20 42 | 45 47 49 4e 20 73 65 63 |DEL in B|EGIN sec|
|00003c20| 74 69 6f 6e 0a 2b 20 23 | 0a 2b 20 23 20 6d 61 77 |tion.+ #|.+ # maw|
|00003c30| 6b 20 2d 66 20 61 64 64 | 5f 63 72 2e 61 77 6b 20 |k -f add|_cr.awk |
|00003c40| 20 5b 66 69 6c 65 73 5d | 0a 2b 20 0a 2b 20 23 20 | [files]|.+ .+ # |
|00003c50| 77 69 74 68 20 6e 6f 20 | 66 69 6c 65 73 20 72 65 |with no |files re|
|00003c60| 61 64 73 20 73 74 64 69 | 6e 20 77 72 69 74 65 73 |ads stdi|n writes|
|00003c70| 20 73 74 64 6f 75 74 0a | 2b 20 23 20 6f 74 68 65 | stdout.|+ # othe|
|00003c80| 72 77 69 73 65 20 74 68 | 65 20 6f 72 69 67 69 6e |rwise th|e origin|
|00003c90| 61 6c 20 69 73 20 6f 76 | 65 72 77 72 69 74 74 65 |al is ov|erwritte|
|00003ca0| 6e 0a 2b 20 23 0a 2b 20 | 23 20 49 66 20 61 20 66 |n.+ #.+ |# If a f|
|00003cb0| 69 6c 65 20 6f 66 20 74 | 68 65 20 66 6f 72 6d 20 |ile of t|he form |
|00003cc0| 60 40 66 69 6c 65 27 2c | 20 74 68 65 6e 20 61 72 |`@file',| then ar|
|00003cd0| 67 75 6d 65 6e 74 73 20 | 61 72 65 20 72 65 61 64 |guments |are read|
|00003ce0| 20 66 72 6f 6d 0a 2b 20 | 23 20 60 66 69 6c 65 27 | from.+ |# `file'|
|00003cf0| 2c 20 6f 6e 65 20 70 65 | 72 20 6c 69 6e 65 0a 2b |, one pe|r line.+|
|00003d00| 20 0a 2b 20 23 0a 2b 20 | 23 20 54 6f 20 61 64 64 | .+ #.+ |# To add|
|00003d10| 20 63 72 27 73 20 74 6f | 20 74 68 65 20 77 68 6f | cr's to| the who|
|00003d20| 6c 65 20 64 69 73 74 72 | 69 62 75 74 69 6f 6e 0a |le distr|ibution.|
|00003d30| 2b 20 23 0a 2b 20 23 20 | 6d 61 77 6b 20 2d 66 20 |+ #.+ # |mawk -f |
|00003d40| 64 6f 73 6c 69 73 74 2e | 61 77 6b 20 70 61 63 6b |doslist.|awk pack|
|00003d50| 69 6e 67 2e 6c 69 73 20 | 7c 20 6d 61 77 6b 20 22 |ing.lis || mawk "|
|00003d60| 7b 70 72 69 6e 74 20 24 | 32 7d 22 20 3e 20 6c 69 |{print $|2}" > li|
|00003d70| 73 74 0a 2b 20 23 20 6d | 61 77 6b 20 2d 66 20 61 |st.+ # m|awk -f a|
|00003d80| 64 64 5f 63 72 2e 61 77 | 6b 20 20 40 6c 69 73 74 |dd_cr.aw|k @list|
|00003d90| 0a 2b 20 23 0a 2b 20 0a | 2b 20 0a 2b 20 23 20 72 |.+ #.+ .|+ .+ # r|
|00003da0| 65 61 64 20 61 72 67 75 | 6d 65 6e 74 73 20 66 6f |ead argu|ments fo|
|00003db0| 72 20 40 66 69 6c 65 20 | 69 6e 74 6f 20 41 52 47 |r @file |into ARG|
|00003dc0| 56 5b 5d 0a 2b 20 66 75 | 6e 63 74 69 6f 6e 20 72 |V[].+ fu|nction r|
|00003dd0| 65 73 65 74 5f 61 72 67 | 76 28 54 2c 20 69 2c 20 |eset_arg|v(T, i, |
|00003de0| 6a 2c 20 66 6c 61 67 2c | 20 66 69 6c 65 29 20 23 |j, flag,| file) #|
|00003df0| 61 6c 6c 20 61 72 67 73 | 20 6c 6f 63 61 6c 0a 2b |all args| local.+|
|00003e00| 20 7b 0a 2b 20 20 20 66 | 6f 72 28 20 69 20 3d 20 | {.+ f|or( i = |
|00003e10| 31 20 3b 20 69 20 3c 20 | 41 52 47 43 20 3b 20 69 |1 ; i < |ARGC ; i|
|00003e20| 2b 2b 20 29 20 0a 2b 20 | 20 20 7b 0a 2b 20 20 20 |++ ) .+ | {.+ |
|00003e30| 20 20 54 5b 69 5d 20 3d | 20 41 52 47 56 5b 69 5d | T[i] =| ARGV[i]|
|00003e40| 0a 2b 20 20 20 20 20 69 | 66 20 28 20 54 5b 69 5d |.+ i|f ( T[i]|
|00003e50| 20 7e 20 2f 5e 40 2f 20 | 29 20 66 6c 61 67 20 3d | ~ /^@/ |) flag =|
|00003e60| 20 31 0a 2b 20 20 20 7d | 0a 2b 20 0a 2b 20 20 20 | 1.+ }|.+ .+ |
|00003e70| 69 66 20 28 20 21 20 66 | 6c 61 67 20 29 20 20 72 |if ( ! f|lag ) r|
|00003e80| 65 74 75 72 6e 0a 2b 20 | 0a 2b 20 20 20 23 20 6e |eturn.+ |.+ # n|
|00003e90| 65 65 64 20 74 6f 20 72 | 65 61 64 20 66 72 6f 6d |eed to r|ead from|
|00003ea0| 20 61 20 40 66 69 6c 65 | 20 69 6e 74 6f 20 41 52 | a @file| into AR|
|00003eb0| 47 56 0a 2b 20 20 20 6a | 20 3d 20 31 0a 2b 20 20 |GV.+ j| = 1.+ |
|00003ec0| 20 66 6f 72 28 20 69 20 | 3d 20 31 20 3b 20 69 20 | for( i |= 1 ; i |
|00003ed0| 3c 20 41 52 47 43 20 3b | 20 69 2b 2b 20 29 0a 2b |< ARGC ;| i++ ).+|
|00003ee0| 20 20 20 7b 0a 2b 20 20 | 20 20 20 69 66 20 28 20 | {.+ | if ( |
|00003ef0| 54 5b 69 5d 20 21 7e 20 | 2f 5e 40 2f 20 29 20 41 |T[i] !~ |/^@/ ) A|
|00003f00| 52 47 56 5b 6a 2b 2b 5d | 20 3d 20 54 5b 69 5d 0a |RGV[j++]| = T[i].|
|00003f10| 2b 20 20 20 20 20 65 6c | 73 65 0a 2b 20 20 20 20 |+ el|se.+ |
|00003f20| 20 7b 0a 2b 20 20 20 20 | 20 20 20 54 5b 69 5d 20 | {.+ | T[i] |
|00003f30| 3d 20 73 75 62 73 74 72 | 28 54 5b 69 5d 2c 32 29 |= substr|(T[i],2)|
|00003f40| 0a 2b 20 20 20 20 20 20 | 20 23 20 72 65 61 64 20 |.+ | # read |
|00003f50| 61 72 67 75 6d 65 6e 74 | 73 20 66 72 6f 6d 20 54 |argument|s from T|
|00003f60| 5b 69 5d 0a 2b 20 20 20 | 20 20 20 20 77 68 69 6c |[i].+ | whil|
|00003f70| 65 20 28 20 28 67 65 74 | 6c 69 6e 65 20 66 69 6c |e ( (get|line fil|
|00003f80| 65 20 3c 20 54 5b 69 5d | 29 20 3e 20 30 20 29 20 |e < T[i]|) > 0 ) |
|00003f90| 41 52 47 56 5b 6a 2b 2b | 5d 20 3d 20 66 69 6c 65 |ARGV[j++|] = file|
|00003fa0| 0a 2b 20 20 20 20 20 7d | 0a 2b 20 20 20 7d 0a 2b |.+ }|.+ }.+|
|00003fb0| 20 20 20 41 52 47 43 20 | 3d 20 6a 0a 2b 20 7d 0a | ARGC |= j.+ }.|
|00003fc0| 2b 20 20 20 20 0a 2b 20 | 20 20 0a 2b 20 42 45 47 |+ .+ | .+ BEG|
|00003fd0| 49 4e 20 7b 0a 2b 20 20 | 20 43 4f 50 59 20 3d 20 |IN {.+ | COPY = |
|00003fe0| 22 63 6f 70 79 22 20 20 | 20 20 23 20 75 6e 69 78 |"copy" | # unix|
|00003ff0| 3a 20 22 63 70 22 0a 2b | 20 20 20 44 45 4c 20 3d |: "cp".+| DEL =|
|00004000| 20 22 64 65 6c 22 20 20 | 20 20 20 20 23 20 75 6e | "del" | # un|
|00004010| 69 78 3a 20 22 72 6d 22 | 0a 2b 20 0a 2b 20 20 20 |ix: "rm"|.+ .+ |
|00004020| 74 6d 70 66 69 6c 65 20 | 3d 20 45 4e 56 49 52 4f |tmpfile |= ENVIRO|
|00004030| 4e 5b 22 4d 41 57 4b 54 | 4d 50 44 49 52 22 5d 20 |N["MAWKT|MPDIR"] |
|00004040| 22 4d 41 57 4b 2e 54 4d | 50 22 0a 2b 20 0a 2b 20 |"MAWK.TM|P".+ .+ |
|00004050| 20 20 72 65 73 65 74 5f | 61 72 67 76 28 29 0a 2b | reset_|argv().+|
|00004060| 20 7d 0a 2b 20 0a 2b 20 | 0a 2b 20 46 49 4c 45 4e | }.+ .+ |.+ FILEN|
|00004070| 41 4d 45 20 3d 3d 20 22 | 2d 22 20 7b 0a 2b 20 20 |AME == "|-" {.+ |
|00004080| 20 20 23 20 6a 75 73 74 | 20 77 72 69 74 65 20 74 | # just| write t|
|00004090| 6f 20 73 74 64 6f 75 74 | 0a 2b 20 20 20 20 70 72 |o stdout|.+ pr|
|000040a0| 69 6e 74 66 20 22 25 73 | 5c 72 5c 6e 22 20 2c 20 |intf "%s|\r\n" , |
|000040b0| 24 30 0a 2b 20 20 20 20 | 6e 65 78 74 0a 2b 20 7d |$0.+ |next.+ }|
|000040c0| 0a 2b 20 0a 2b 20 46 49 | 4c 45 4e 41 4d 45 20 21 |.+ .+ FI|LENAME !|
|000040d0| 3d 20 66 69 6c 65 6e 61 | 6d 65 20 7b 0a 2b 20 20 |= filena|me {.+ |
|000040e0| 20 20 0a 2b 20 20 20 20 | 69 66 20 28 20 66 69 6c | .+ |if ( fil|
|000040f0| 65 6e 61 6d 65 20 29 0a | 2b 20 20 20 20 7b 0a 2b |ename ).|+ {.+|
|00004100| 20 20 20 20 20 20 63 6c | 6f 73 65 28 74 6d 70 66 | cl|ose(tmpf|
|00004110| 69 6c 65 29 0a 2b 20 20 | 20 20 20 20 73 79 73 63 |ile).+ | sysc|
|00004120| 6d 64 20 3d 20 73 70 72 | 69 6e 74 66 28 20 22 25 |md = spr|intf( "%|
|00004130| 73 20 25 73 20 25 73 22 | 2c 20 43 4f 50 59 2c 20 |s %s %s"|, COPY, |
|00004140| 74 6d 70 66 69 6c 65 2c | 20 66 69 6c 65 6e 61 6d |tmpfile,| filenam|
|00004150| 65 20 29 0a 2b 20 20 20 | 20 20 20 73 79 73 74 65 |e ).+ | syste|
|00004160| 6d 28 73 79 73 63 6d 64 | 29 0a 2b 20 20 20 20 7d |m(syscmd|).+ }|
|00004170| 0a 2b 20 0a 2b 20 20 20 | 20 66 69 6c 65 6e 61 6d |.+ .+ | filenam|
|00004180| 65 20 3d 20 46 49 4c 45 | 4e 41 4d 45 0a 2b 20 7d |e = FILE|NAME.+ }|
|00004190| 0a 2b 20 0a 2b 20 7b 20 | 70 72 69 6e 74 66 20 22 |.+ .+ { |printf "|
|000041a0| 25 73 5c 72 5c 6e 22 20 | 2c 20 24 30 20 3e 20 74 |%s\r\n" |, $0 > t|
|000041b0| 6d 70 66 69 6c 65 20 7d | 0a 2b 20 0a 2b 20 0a 2b |mpfile }|.+ .+ .+|
|000041c0| 20 45 4e 44 20 7b 0a 2b | 20 20 20 69 66 20 28 20 | END {.+| if ( |
|000041d0| 66 69 6c 65 6e 61 6d 65 | 20 29 20 20 0a 2b 20 20 |filename| ) .+ |
|000041e0| 20 7b 0a 2b 20 20 20 20 | 20 63 6c 6f 73 65 28 74 | {.+ | close(t|
|000041f0| 6d 70 66 69 6c 65 29 0a | 2b 20 20 20 20 20 73 79 |mpfile).|+ sy|
|00004200| 73 63 6d 64 20 3d 20 73 | 70 72 69 6e 74 66 28 20 |scmd = s|printf( |
|00004210| 22 25 73 20 25 73 20 25 | 73 22 2c 20 43 4f 50 59 |"%s %s %|s", COPY|
|00004220| 2c 20 74 6d 70 66 69 6c | 65 2c 20 66 69 6c 65 6e |, tmpfil|e, filen|
|00004230| 61 6d 65 20 29 0a 2b 20 | 20 20 20 20 73 79 73 74 |ame ).+ | syst|
|00004240| 65 6d 28 73 79 73 63 6d | 64 29 0a 2b 20 20 20 20 |em(syscm|d).+ |
|00004250| 20 73 79 73 74 65 6d 28 | 44 45 4c 20 22 20 22 20 | system(|DEL " " |
|00004260| 74 6d 70 66 69 6c 65 29 | 0a 2b 20 20 20 7d 0a 2b |tmpfile)|.+ }.+|
|00004270| 20 7d 0a 2b 20 0a 2b 20 | 20 20 20 0a 2a 2a 2a 20 | }.+ .+ | .*** |
|00004280| 2f 64 65 76 2f 6e 75 6c | 6c 09 53 61 74 20 46 65 |/dev/nul|l.Sat Fe|
|00004290| 62 20 20 36 20 30 32 3a | 30 37 3a 30 30 20 31 39 |b 6 02:|07:00 19|
|000042a0| 39 33 0a 2d 2d 2d 20 6d | 73 64 6f 73 2f 65 78 61 |93.--- m|sdos/exa|
|000042b0| 6d 70 6c 65 73 2f 74 65 | 78 74 74 65 73 74 2e 61 |mples/te|xttest.a|
|000042c0| 77 6b 09 53 61 74 20 44 | 65 63 20 20 35 20 31 33 |wk.Sat D|ec 5 13|
|000042d0| 3a 35 37 3a 31 35 20 31 | 39 39 32 0a 2a 2a 2a 2a |:57:15 1|992.****|
|000042e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0a 2a 2a 2a 20 |********|***.*** |
|000042f0| 30 20 2a 2a 2a 2a 0a 2d | 2d 2d 20 31 2c 31 31 20 |0 ****.-|-- 1,11 |
|00004300| 2d 2d 2d 2d 0a 2b 20 23 | 20 42 65 6e 20 4d 79 65 |----.+ #| Ben Mye|
|00004310| 72 73 20 3c 30 30 30 33 | 35 37 31 34 30 30 40 6d |rs <0003|571400@m|
|00004320| 63 69 6d 61 69 6c 2e 63 | 6f 6d 3e 0a 2b 20 0a 2b |cimail.c|om>.+ .+|
|00004330| 20 2f 5e 23 69 6e 63 6c | 75 64 65 2f 20 7b 0a 2b | /^#incl|ude/ {.+|
|00004340| 20 23 20 67 6f 74 20 23 | 69 6e 63 6c 75 64 65 2c | # got #|include,|
|00004350| 20 73 65 65 20 69 66 20 | 69 74 20 68 61 73 20 61 | see if |it has a|
|00004360| 74 20 6c 65 61 73 74 20 | 6f 6e 65 20 71 75 6f 74 |t least |one quot|
|00004370| 65 2e 20 57 65 20 64 6f | 6e 27 74 20 77 61 6e 74 |e. We do|n't want|
|00004380| 20 23 69 6e 63 6c 75 64 | 65 20 3c 3e 20 20 20 20 | #includ|e <> |
|00004390| 20 20 20 20 0a 2b 20 20 | 20 20 20 20 20 20 20 7a | .+ | z|
|000043a0| 20 3d 20 67 73 75 62 28 | 2f 22 2f 2c 20 22 22 2c | = gsub(|/"/, "",|
|000043b0| 20 24 32 29 0a 2b 20 20 | 20 20 20 20 20 20 20 77 | $2).+ | w|
|000043c0| 68 69 6c 65 20 28 28 7a | 20 3e 20 30 29 20 26 26 |hile ((z| > 0) &&|
|000043d0| 20 28 67 65 74 6c 69 6e | 65 20 78 20 3c 24 32 20 | (getlin|e x <$2 |
|000043e0| 3e 20 30 29 29 20 0a 2b | 20 23 20 20 20 20 20 20 |> 0)) .+| # |
|000043f0| 20 20 77 68 69 6c 65 20 | 28 67 65 74 6c 69 6e 65 | while |(getline|
|00004400| 20 78 20 3c 24 32 20 3e | 20 30 29 20 0a 2b 20 20 | x <$2 >| 0) .+ |
|00004410| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 70 | | p|
|00004420| 72 69 6e 74 20 78 0a 2b | 20 20 20 20 20 20 20 20 |rint x.+| |
|00004430| 20 6e 65 78 74 0a 2b 20 | 7d 0a 2b 20 7b 20 70 72 | next.+ |}.+ { pr|
|00004440| 69 6e 74 20 7d 0a 2a 2a | 2a 20 2f 64 65 76 2f 6e |int }.**|* /dev/n|
|00004450| 75 6c 6c 09 53 61 74 20 | 46 65 62 20 20 36 20 30 |ull.Sat |Feb 6 0|
|00004460| 32 3a 30 37 3a 30 30 20 | 31 39 39 33 0a 2d 2d 2d |2:07:00 |1993.---|
|00004470| 20 6d 73 64 6f 73 2f 6d | 61 6b 65 66 69 6c 65 2e | msdos/m|akefile.|
|00004480| 7a 74 63 09 53 61 74 20 | 44 65 63 20 32 36 20 31 |ztc.Sat |Dec 26 1|
|00004490| 37 3a 34 34 3a 35 34 20 | 31 39 39 32 0a 2a 2a 2a |7:44:54 |1992.***|
|000044a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0a 2a 2a 2a |********|****.***|
|000044b0| 20 30 20 2a 2a 2a 2a 0a | 2d 2d 2d 20 31 2c 32 38 | 0 ****.|--- 1,28|
|000044c0| 20 2d 2d 2d 2d 0a 2b 20 | 23 20 4d 61 6b 65 66 69 | ----.+ |# Makefi|
|000044d0| 6c 65 20 66 6f 72 20 5a | 6f 72 74 65 63 68 20 43 |le for Z|ortech C|
|000044e0| 0a 2b 20 0a 2b 20 4f 42 | 4a 31 3d 70 61 72 73 65 |.+ .+ OB|J1=parse|
|000044f0| 2e 6f 62 6a 20 73 63 61 | 6e 2e 6f 62 6a 20 6d 65 |.obj sca|n.obj me|
|00004500| 6d 6f 72 79 2e 6f 62 6a | 20 6d 61 69 6e 2e 6f 62 |mory.obj| main.ob|
|00004510| 6a 20 68 61 73 68 2e 6f | 62 6a 20 65 78 65 63 75 |j hash.o|bj execu|
|00004520| 74 65 2e 6f 62 6a 20 63 | 6f 64 65 2e 6f 62 6a 5c |te.obj c|ode.obj\|
|00004530| 0a 2b 20 20 20 64 61 2e | 6f 62 6a 20 65 72 72 6f |.+ da.|obj erro|
|00004540| 72 2e 6f 62 6a 20 69 6e | 69 74 2e 6f 62 6a 20 62 |r.obj in|it.obj b|
|00004550| 69 5f 76 61 72 73 2e 6f | 62 6a 20 63 61 73 74 2e |i_vars.o|bj cast.|
|00004560| 6f 62 6a 20 70 72 69 6e | 74 2e 6f 62 6a 20 62 69 |obj prin|t.obj bi|
|00004570| 5f 66 75 6e 63 74 2e 6f | 62 6a 5c 0a 2b 20 20 20 |_funct.o|bj\.+ |
|00004580| 6b 77 2e 6f 62 6a 20 6a | 6d 70 2e 6f 62 6a 20 61 |kw.obj j|mp.obj a|
|00004590| 72 72 61 79 2e 6f 62 6a | 20 66 69 65 6c 64 2e 6f |rray.obj| field.o|
|000045a0| 62 6a 20 20 73 70 6c 69 | 74 2e 6f 62 6a 20 72 65 |bj spli|t.obj re|
|000045b0| 5f 63 6d 70 6c 2e 6f 62 | 6a 20 7a 6d 61 6c 6c 6f |_cmpl.ob|j zmallo|
|000045c0| 63 2e 6f 62 6a 5c 0a 2b | 20 20 20 66 69 6e 2e 6f |c.obj\.+| fin.o|
|000045d0| 62 6a 20 66 69 6c 65 73 | 2e 6f 62 6a 20 20 73 63 |bj files|.obj sc|
|000045e0| 61 6e 63 6f 64 65 2e 6f | 62 6a 20 6d 61 74 68 65 |ancode.o|bj mathe|
|000045f0| 72 72 2e 6f 62 6a 20 66 | 63 61 6c 6c 2e 6f 62 6a |rr.obj f|call.obj|
|00004600| 20 76 65 72 73 69 6f 6e | 2e 6f 62 6a 5c 0a 2b 20 | version|.obj\.+ |
|00004610| 20 20 64 6f 73 65 78 65 | 63 2e 6f 62 6a 0a 2b 20 | dosexe|c.obj.+ |
|00004620| 0a 2b 20 23 4f 42 4a 32 | 3d 72 65 78 70 5c 72 65 |.+ #OBJ2|=rexp\re|
|00004630| 78 70 2e 6f 62 6a 20 72 | 65 78 70 5c 72 65 78 70 |xp.obj r|exp\rexp|
|00004640| 30 2e 6f 62 6a 20 72 65 | 78 70 5c 72 65 78 70 31 |0.obj re|xp\rexp1|
|00004650| 2e 6f 62 6a 20 72 65 78 | 70 5c 72 65 78 70 32 2e |.obj rex|p\rexp2.|
|00004660| 6f 62 6a 5c 0a 2b 20 23 | 20 20 72 65 78 70 5c 72 |obj\.+ #| rexp\r|
|00004670| 65 78 70 33 2e 6f 62 6a | 20 20 72 65 78 70 5c 72 |exp3.obj| rexp\r|
|00004680| 65 78 70 64 62 2e 6f 62 | 6a 0a 2b 20 0a 2b 20 4f |expdb.ob|j.+ .+ O|
|00004690| 42 4a 32 3d 72 65 78 70 | 2e 6f 62 6a 20 72 65 78 |BJ2=rexp|.obj rex|
|000046a0| 70 30 2e 6f 62 6a 20 72 | 65 78 70 31 2e 6f 62 6a |p0.obj r|exp1.obj|
|000046b0| 20 72 65 78 70 32 2e 6f | 62 6a 5c 0a 2b 20 20 20 | rexp2.o|bj\.+ |
|000046c0| 72 65 78 70 33 2e 6f 62 | 6a 20 72 65 78 70 64 62 |rexp3.ob|j rexpdb|
|000046d0| 2e 6f 62 6a 0a 2b 20 0a | 2b 20 43 46 4c 41 47 53 |.obj.+ .|+ CFLAGS|
|000046e0| 3d 2d 6d 6c 20 2d 62 78 | 20 2d 6f 20 2d 41 2d 20 |=-ml -bx| -o -A- |
|000046f0| 2d 44 4c 41 52 47 45 20 | 2d 44 4d 41 57 4b 20 2d |-DLARGE |-DMAWK -|
|00004700| 44 48 41 56 45 5f 53 4d | 41 4c 4c 5f 4d 45 4d 4f |DHAVE_SM|ALL_MEMO|
|00004710| 52 59 3d 30 0a 2b 20 0a | 2b 20 4c 46 4c 41 47 53 |RY=0.+ .|+ LFLAGS|
|00004720| 20 3d 20 2d 4c 2f 53 54 | 3a 33 32 37 36 38 0a 2b | = -L/ST|:32768.+|
|00004730| 20 0a 2b 20 2e 63 2e 6f | 62 6a 3a 0a 2b 20 09 7a | .+ .c.o|bj:.+ .z|
|00004740| 74 63 20 2d 63 20 24 28 | 43 46 4c 41 47 53 29 20 |tc -c $(|CFLAGS) |
|00004750| 24 3c 0a 2b 20 0a 2b 20 | 62 6d 61 77 6b 7a 74 63 |$<.+ .+ |bmawkztc|
|00004760| 2e 65 78 65 3a 09 24 28 | 4f 42 4a 31 29 20 24 28 |.exe:.$(|OBJ1) $(|
|00004770| 4f 42 4a 32 29 0a 2b 20 | 09 7a 74 63 20 24 28 4c |OBJ2).+ |.ztc $(L|
|00004780| 46 4c 41 47 53 29 20 2d | 6f 62 6d 61 77 6b 7a 74 |FLAGS) -|obmawkzt|
|00004790| 63 20 24 28 4f 42 4a 31 | 29 20 24 28 4f 42 4a 32 |c $(OBJ1|) $(OBJ2|
|000047a0| 29 0a 2b 20 0a 2b 20 24 | 28 4f 42 4a 31 29 3a 20 |).+ .+ $|(OBJ1): |
|000047b0| 42 49 5f 46 55 4e 43 54 | 2e 48 20 42 49 5f 56 41 |BI_FUNCT|.H BI_VA|
|000047c0| 52 53 2e 48 20 43 4f 44 | 45 2e 48 20 46 49 45 4c |RS.H COD|E.H FIEL|
|000047d0| 44 2e 48 20 46 49 4c 45 | 53 2e 48 20 49 4e 49 54 |D.H FILE|S.H INIT|
|000047e0| 2e 48 20 4a 4d 50 2e 48 | 20 4d 45 4d 4f 52 59 2e |.H JMP.H| MEMORY.|
|000047f0| 48 5c 0a 2b 20 20 20 50 | 41 52 53 45 2e 48 20 50 |H\.+ P|ARSE.H P|
|00004800| 41 54 43 48 4c 45 56 2e | 48 20 52 45 47 45 58 50 |ATCHLEV.|H REGEXP|
|00004810| 2e 48 20 52 45 50 4c 2e | 48 20 53 43 41 4e 2e 48 |.H REPL.|H SCAN.H|
|00004820| 20 53 49 5a 45 53 2e 48 | 20 53 59 4d 54 59 50 45 | SIZES.H| SYMTYPE|
|00004830| 2e 48 20 54 59 50 45 53 | 2e 48 5c 0a 2b 20 20 20 |.H TYPES|.H\.+ |
|00004840| 5a 4d 41 4c 4c 4f 43 2e | 48 20 43 4f 4e 46 49 47 |ZMALLOC.|H CONFIG|
|00004850| 2e 48 20 46 49 4e 2e 48 | 20 4d 41 57 4b 2e 48 0a |.H FIN.H| MAWK.H.|
|00004860| 2b 20 24 28 4f 42 4a 32 | 29 3a 09 72 65 78 70 2e |+ $(OBJ2|):.rexp.|
|00004870| 68 0a 2a 2a 2a 20 2f 64 | 65 76 2f 6e 75 6c 6c 09 |h.*** /d|ev/null.|
|00004880| 53 61 74 20 46 65 62 20 | 20 36 20 30 32 3a 30 37 |Sat Feb | 6 02:07|
|00004890| 3a 30 30 20 31 39 39 33 | 0a 2d 2d 2d 20 6d 73 64 |:00 1993|.--- msd|
|000048a0| 6f 73 2f 65 78 61 6d 70 | 6c 65 73 2f 64 6f 73 6c |os/examp|les/dosl|
|000048b0| 69 73 74 2e 61 77 6b 09 | 53 61 74 20 44 65 63 20 |ist.awk.|Sat Dec |
|000048c0| 20 35 20 31 33 3a 35 37 | 3a 31 31 20 31 39 39 32 | 5 13:57|:11 1992|
|000048d0| 0a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.*******|********|
|000048e0| 0a 2a 2a 2a 20 30 20 2a | 2a 2a 2a 0a 2d 2d 2d 20 |.*** 0 *|***.--- |
|000048f0| 31 2c 33 34 20 2d 2d 2d | 2d 0a 2b 20 0a 2b 20 23 |1,34 ---|-.+ .+ #|
|00004900| 20 70 72 69 6e 74 20 74 | 72 75 6e 63 61 74 65 64 | print t|runcated|
|00004910| 20 44 4f 53 20 66 69 6c | 65 20 6e 61 6d 65 73 0a | DOS fil|e names.|
|00004920| 2b 20 23 20 66 72 6f 6d | 20 70 61 63 6b 69 6e 67 |+ # from| packing|
|00004930| 2e 6c 69 73 74 20 28 70 | 61 63 6b 69 6e 67 2e 6c |.list (p|acking.l|
|00004940| 69 73 29 0a 2b 20 23 0a | 2b 20 23 20 20 6d 61 77 |is).+ #.|+ # maw|
|00004950| 6b 20 2d 66 20 64 6f 73 | 6c 69 73 74 2e 61 77 6b |k -f dos|list.awk|
|00004960| 20 70 61 63 6b 69 6e 67 | 2e 6c 69 73 0a 2b 20 0a | packing|.lis.+ .|
|00004970| 2b 20 0a 2b 20 23 20 64 | 69 73 63 61 72 64 20 62 |+ .+ # d|iscard b|
|00004980| 6c 61 6e 6b 73 20 61 6e | 64 20 63 6f 6d 6d 65 6e |lanks an|d commen|
|00004990| 74 73 0a 2b 20 2f 5e 23 | 2f 20 7c 7c 20 2f 5e 5b |ts.+ /^#|/ || /^[|
|000049a0| 20 5c 74 5d 2a 24 2f 20 | 7b 6e 65 78 74 7d 0a 2b | \t]*$/ |{next}.+|
|000049b0| 20 0a 2b 20 0a 2b 20 66 | 75 6e 63 74 69 6f 6e 20 | .+ .+ f|unction |
|000049c0| 64 6f 73 5f 6e 61 6d 65 | 28 73 2c 09 6e 2c 20 66 |dos_name|(s,.n, f|
|000049d0| 72 6f 6e 74 2c 20 58 29 | 0a 2b 20 7b 0a 2b 20 20 |ront, X)|.+ {.+ |
|000049e0| 20 23 6c 6f 77 65 72 63 | 61 73 65 2c 20 73 70 6c | #lowerc|ase, spl|
|000049f0| 69 74 20 6f 6e 20 65 78 | 74 65 6e 73 69 6f 6e 20 |it on ex|tension |
|00004a00| 61 6e 64 20 74 72 75 6e | 63 61 74 65 20 70 69 65 |and trun|cate pie|
|00004a10| 63 65 73 0a 2b 20 20 20 | 73 20 3d 20 74 6f 6c 6f |ces.+ |s = tolo|
|00004a20| 77 65 72 28 73 29 0a 2b | 20 20 20 6e 20 3d 20 73 |wer(s).+| n = s|
|00004a30| 70 6c 69 74 28 73 2c 20 | 58 2c 20 22 2e 22 29 0a |plit(s, |X, ".").|
|00004a40| 2b 20 0a 2b 20 20 20 66 | 72 6f 6e 74 20 3d 20 73 |+ .+ f|ront = s|
|00004a50| 75 62 73 74 72 28 58 5b | 31 5d 2c 31 2c 38 29 0a |ubstr(X[|1],1,8).|
|00004a60| 2b 20 0a 2b 20 20 20 69 | 66 20 28 20 6e 20 3d 3d |+ .+ i|f ( n ==|
|00004a70| 20 31 20 29 20 20 72 65 | 74 75 72 6e 20 66 72 6f | 1 ) re|turn fro|
|00004a80| 6e 74 0a 2b 20 20 20 65 | 6c 73 65 20 72 65 74 75 |nt.+ e|lse retu|
|00004a90| 72 6e 20 66 72 6f 6e 74 | 20 22 2e 22 20 73 75 62 |rn front| "." sub|
|00004aa0| 73 74 72 28 58 5b 32 5d | 2c 20 31 2c 20 33 29 0a |str(X[2]|, 1, 3).|
|00004ab0| 2b 20 7d 0a 2b 20 0a 2b | 20 7b 0a 2b 20 20 20 6e |+ }.+ .+| {.+ n|
|00004ac0| 20 3d 20 73 70 6c 69 74 | 28 24 31 2c 20 58 2c 20 | = split|($1, X, |
|00004ad0| 22 2f 22 29 0a 2b 20 20 | 20 6e 65 77 20 3d 20 64 |"/").+ | new = d|
|00004ae0| 6f 73 5f 6e 61 6d 65 28 | 58 5b 31 5d 29 0a 2b 20 |os_name(|X[1]).+ |
|00004af0| 0a 2b 20 20 20 66 6f 72 | 28 20 69 20 3d 20 32 20 |.+ for|( i = 2 |
|00004b00| 3b 20 69 20 3c 3d 20 6e | 20 3b 20 69 2b 2b 20 29 |; i <= n| ; i++ )|
|00004b10| 0a 2b 20 09 6e 65 77 20 | 3d 20 6e 65 77 20 22 5c |.+ .new |= new "\|
|00004b20| 5c 22 20 64 6f 73 5f 6e | 61 6d 65 28 58 5b 69 5d |\" dos_n|ame(X[i]|
|00004b30| 29 0a 2b 20 0a 2b 20 20 | 20 70 72 69 6e 74 66 20 |).+ .+ | printf |
|00004b40| 22 25 2d 33 30 73 25 73 | 5c 6e 22 2c 20 24 31 2c |"%-30s%s|\n", $1,|
|00004b50| 20 6e 65 77 0a 2b 20 7d | 0a 2b 20 0a 2b 20 0a 2a | new.+ }|.+ .+ .*|
|00004b60| 2a 2a 20 2f 64 65 76 2f | 6e 75 6c 6c 09 53 61 74 |** /dev/|null.Sat|
|00004b70| 20 46 65 62 20 20 36 20 | 30 32 3a 30 37 3a 30 30 | Feb 6 |02:07:00|
|00004b80| 20 31 39 39 33 0a 2d 2d | 2d 20 63 6f 6e 66 69 67 | 1993.--|- config|
|00004b90| 2f 6c 69 6e 75 78 2e 68 | 09 57 65 64 20 4a 61 6e |/linux.h|.Wed Jan|
|00004ba0| 20 32 37 20 31 39 3a 35 | 32 3a 32 32 20 31 39 39 | 27 19:5|2:22 199|
|00004bb0| 33 0a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |3.******|********|
|00004bc0| 2a 0a 2a 2a 2a 20 30 20 | 2a 2a 2a 2a 0a 2d 2d 2d |*.*** 0 |****.---|
|00004bd0| 20 31 2c 32 34 20 2d 2d | 2d 2d 0a 2b 20 2f 2a 0a | 1,24 --|--.+ /*.|
|00004be0| 2b 20 0a 2b 20 6c 69 6e | 75 78 2e 68 0a 2b 20 53 |+ .+ lin|ux.h.+ S|
|00004bf0| 6f 72 74 61 20 74 65 73 | 74 65 64 20 77 69 74 68 |orta tes|ted with|
|00004c00| 20 4c 69 6e 75 78 20 30 | 2e 39 38 70 6c 34 20 26 | Linux 0|.98pl4 &|
|00004c10| 20 67 63 63 20 32 2e 32 | 64 37 0a 2b 20 53 6c 61 | gcc 2.2|d7.+ Sla|
|00004c20| 70 70 65 64 20 74 6f 67 | 65 74 68 65 72 20 62 79 |pped tog|ether by|
|00004c30| 20 42 6f 62 20 48 75 74 | 63 68 69 6e 73 6f 6e 0a | Bob Hut|chinson.|
|00004c40| 2b 20 53 74 61 6e 64 61 | 72 64 20 64 69 73 63 6c |+ Standa|rd discl|
|00004c50| 61 69 6d 65 72 3a 20 22 | 57 65 6c 6c 2c 20 69 74 |aimer: "|Well, it|
|00004c60| 20 77 6f 72 6b 65 64 20 | 66 6f 72 20 6d 65 2e 2e | worked |for me..|
|00004c70| 2e 22 0a 2b 20 0a 2b 20 | 2a 2f 0a 2b 20 0a 2b 20 |.".+ .+ |*/.+ .+ |
|00004c80| 0a 2b 20 23 69 66 6e 64 | 65 66 20 20 20 43 4f 4e |.+ #ifnd|ef CON|
|00004c90| 46 49 47 5f 48 0a 2b 20 | 23 64 65 66 69 6e 65 20 |FIG_H.+ |#define |
|00004ca0| 20 20 43 4f 4e 46 49 47 | 5f 48 20 20 20 20 20 20 | CONFIG|_H |
|00004cb0| 09 31 0a 2b 20 0a 2b 20 | 23 64 65 66 69 6e 65 20 |.1.+ .+ |#define |
|00004cc0| 48 41 56 45 5f 4d 41 54 | 48 45 52 52 09 09 30 0a |HAVE_MAT|HERR..0.|
|00004cd0| 2b 20 23 64 65 66 69 6e | 65 20 48 41 56 45 5f 53 |+ #defin|e HAVE_S|
|00004ce0| 54 44 4c 49 42 5f 48 09 | 09 31 0a 2b 20 0a 2b 20 |TDLIB_H.|.1.+ .+ |
|00004cf0| 23 64 65 66 69 6e 65 20 | 20 44 4f 4e 54 5f 50 52 |#define | DONT_PR|
|00004d00| 4f 54 4f 5f 4f 50 45 4e | 0a 2b 20 0a 2b 20 23 64 |OTO_OPEN|.+ .+ #d|
|00004d10| 65 66 69 6e 65 20 46 50 | 45 5f 54 52 41 50 53 5f |efine FP|E_TRAPS_|
|00004d20| 4f 4e 09 09 31 0a 2b 20 | 23 64 65 66 69 6e 65 20 |ON..1.+ |#define |
|00004d30| 4e 4f 49 4e 46 4f 5f 53 | 49 47 46 50 45 09 09 31 |NOINFO_S|IGFPE..1|
|00004d40| 0a 2b 20 0a 2b 20 23 69 | 6e 63 6c 75 64 65 20 22 |.+ .+ #i|nclude "|
|00004d50| 63 6f 6e 66 69 67 2f 49 | 64 65 66 61 75 6c 74 2e |config/I|default.|
|00004d60| 68 22 0a 2b 20 0a 2b 20 | 23 65 6e 64 69 66 20 20 |h".+ .+ |#endif |
|00004d70| 2f 2a 20 43 4f 4e 46 49 | 47 5f 48 20 20 2a 2f 0a |/* CONFI|G_H */.|
|00004d80| 2a 2a 2a 20 2f 64 65 76 | 2f 6e 75 6c 6c 09 53 61 |*** /dev|/null.Sa|
|00004d90| 74 20 46 65 62 20 20 36 | 20 30 32 3a 30 37 3a 30 |t Feb 6| 02:07:0|
|00004da0| 30 20 31 39 39 33 0a 2d | 2d 2d 20 63 6f 6e 66 69 |0 1993.-|-- confi|
|00004db0| 67 2f 63 6f 68 65 72 65 | 6e 74 2e 68 09 53 75 6e |g/cohere|nt.h.Sun|
|00004dc0| 20 4e 6f 76 20 32 32 20 | 31 30 3a 33 35 3a 34 33 | Nov 22 |10:35:43|
|00004dd0| 20 31 39 39 32 0a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | 1992.**|********|
|00004de0| 2a 2a 2a 2a 2a 0a 2a 2a | 2a 20 30 20 2a 2a 2a 2a |*****.**|* 0 ****|
|00004df0| 0a 2d 2d 2d 20 31 2c 35 | 38 20 2d 2d 2d 2d 0a 2b |.--- 1,5|8 ----.+|
|00004e00| 20 0a 2b 20 2f 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | .+ /***|********|
|00004e10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004e20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004e30| 2a 0a 2b 20 63 6f 68 65 | 72 65 6e 74 2e 68 0a 2b |*.+ cohe|rent.h.+|
|00004e40| 20 63 6f 70 79 72 69 67 | 68 74 20 31 39 39 32 2e | copyrig|ht 1992.|
|00004e50| 20 20 4d 69 63 68 61 65 | 6c 20 44 2e 20 42 72 65 | Michae|l D. Bre|
|00004e60| 6e 6e 61 6e 0a 2b 20 0a | 2b 20 54 68 69 73 20 69 |nnan.+ .|+ This i|
|00004e70| 73 20 61 20 73 6f 75 72 | 63 65 20 66 69 6c 65 20 |s a sour|ce file |
|00004e80| 66 6f 72 20 6d 61 77 6b | 2c 20 61 6e 20 69 6d 70 |for mawk|, an imp|
|00004e90| 6c 65 6d 65 6e 74 61 74 | 69 6f 6e 20 6f 66 0a 2b |lementat|ion of.+|
|00004ea0| 20 74 68 65 20 41 57 4b | 20 70 72 6f 67 72 61 6d | the AWK| program|
|00004eb0| 6d 69 6e 67 20 6c 61 6e | 67 75 61 67 65 2e 0a 2b |ming lan|guage..+|
|00004ec0| 20 0a 2b 20 4d 61 77 6b | 20 69 73 20 64 69 73 74 | .+ Mawk| is dist|
|00004ed0| 72 69 62 75 74 65 64 20 | 77 69 74 68 6f 75 74 20 |ributed |without |
|00004ee0| 77 61 72 72 61 6e 74 79 | 20 75 6e 64 65 72 20 74 |warranty| under t|
|00004ef0| 68 65 20 74 65 72 6d 73 | 20 6f 66 0a 2b 20 74 68 |he terms| of.+ th|
|00004f00| 65 20 47 4e 55 20 47 65 | 6e 65 72 61 6c 20 50 75 |e GNU Ge|neral Pu|
|00004f10| 62 6c 69 63 20 4c 69 63 | 65 6e 73 65 2c 20 76 65 |blic Lic|ense, ve|
|00004f20| 72 73 69 6f 6e 20 32 2c | 20 31 39 39 31 2e 0a 2b |rsion 2,| 1991..+|
|00004f30| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|00004f40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004f50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2f 0a 2b |********|*****/.+|
|00004f60| 20 0a 2b 20 2f 2a 20 54 | 68 69 73 20 69 73 20 66 | .+ /* T|his is f|
|00004f70| 6f 72 20 43 4f 48 45 52 | 45 4e 54 20 34 2e 30 20 |or COHER|ENT 4.0 |
|00004f80| 2a 2f 0a 2b 20 0a 2b 20 | 2f 2a 0a 2b 20 24 4c 6f |*/.+ .+ |/*.+ $Lo|
|00004f90| 67 3a 20 63 6f 68 65 72 | 65 6e 74 2e 68 2c 76 20 |g: coher|ent.h,v |
|00004fa0| 24 0a 2b 20 20 2a 20 52 | 65 76 69 73 69 6f 6e 20 |$.+ * R|evision |
|00004fb0| 31 2e 31 20 20 31 39 39 | 32 2f 31 31 2f 32 32 20 |1.1 199|2/11/22 |
|00004fc0| 20 31 38 3a 33 35 3a 34 | 33 20 20 6d 69 6b 65 0a | 18:35:4|3 mike.|
|00004fd0| 2b 20 20 2a 20 49 6e 69 | 74 69 61 6c 20 72 65 76 |+ * Ini|tial rev|
|00004fe0| 69 73 69 6f 6e 0a 2b 20 | 20 2a 0a 2b 20 2a 2f 0a |ision.+ | *.+ */.|
|00004ff0| 2b 20 0a 2b 20 23 69 66 | 6e 64 65 66 20 20 43 4f |+ .+ #if|ndef CO|
|00005000| 4e 46 49 47 5f 48 0a 2b | 20 23 64 65 66 69 6e 65 |NFIG_H.+| #define|
|00005010| 20 20 43 4f 4e 46 49 47 | 5f 48 20 20 20 20 20 20 | CONFIG|_H |
|00005020| 20 31 0a 2b 20 0a 2b 20 | 23 64 65 66 69 6e 65 20 | 1.+ .+ |#define |
|00005030| 48 41 56 45 5f 56 4f 49 | 44 5f 50 54 52 20 20 20 |HAVE_VOI|D_PTR |
|00005040| 30 0a 2b 20 23 64 65 66 | 69 6e 65 20 48 41 56 45 |0.+ #def|ine HAVE|
|00005050| 5f 4d 41 54 48 45 52 52 | 20 20 20 20 30 0a 2b 20 |_MATHERR| 0.+ |
|00005060| 23 64 65 66 69 6e 65 20 | 48 41 56 45 5f 46 4d 4f |#define |HAVE_FMO|
|00005070| 44 20 20 20 20 20 20 20 | 30 0a 2b 20 23 64 65 66 |D |0.+ #def|
|00005080| 69 6e 65 20 48 41 56 45 | 5f 53 54 44 4c 49 42 5f |ine HAVE|_STDLIB_|
|00005090| 48 20 20 20 31 0a 2b 20 | 23 64 65 66 69 6e 65 20 |H 1.+ |#define |
|000050a0| 48 41 56 45 5f 53 54 52 | 45 52 52 4f 52 09 31 0a |HAVE_STR|ERROR.1.|
|000050b0| 2b 20 0a 2b 20 23 64 65 | 66 69 6e 65 20 55 53 45 |+ .+ #de|fine USE|
|000050c0| 5f 53 49 4d 50 4c 45 5f | 56 46 50 52 49 4e 54 46 |_SIMPLE_|VFPRINTF|
|000050d0| 20 20 2f 2a 20 6e 6f 20 | 76 66 70 72 69 6e 74 66 | /* no |vfprintf|
|000050e0| 28 29 20 2a 2f 0a 2b 20 | 0a 2b 20 23 64 65 66 69 |() */.+ |.+ #defi|
|000050f0| 6e 65 20 48 41 56 45 5f | 53 54 44 41 52 47 5f 48 |ne HAVE_|STDARG_H|
|00005100| 20 20 20 31 0a 2b 20 0a | 2b 20 20 20 20 2f 2a 20 | 1.+ .|+ /* |
|00005110| 62 75 74 20 69 74 20 6e | 6f 74 20 73 74 61 6e 64 |but it n|ot stand|
|00005120| 61 72 64 20 21 20 0a 2b | 20 20 20 20 20 20 20 73 |ard ! .+| s|
|00005130| 6f 20 61 64 64 20 20 2a | 2f 0a 2b 20 0a 2b 20 23 |o add *|/.+ .+ #|
|00005140| 64 65 66 69 6e 65 20 20 | 56 41 5f 41 4c 49 53 54 |define |VA_ALIST|
|00005150| 28 74 79 70 65 2c 20 61 | 72 67 29 20 28 61 72 67 |(type, a|rg) (arg|
|00005160| 29 20 74 79 70 65 20 61 | 72 67 3b 20 7b 0a 2b 20 |) type a|rg; {.+ |
|00005170| 23 64 65 66 69 6e 65 20 | 20 56 41 5f 41 4c 49 53 |#define | VA_ALIS|
|00005180| 54 32 28 74 31 2c 61 31 | 2c 74 32 2c 61 32 29 20 |T2(t1,a1|,t2,a2) |
|00005190| 20 28 61 31 2c 61 32 29 | 20 74 31 20 61 31 3b 20 | (a1,a2)| t1 a1; |
|000051a0| 74 32 20 61 32 3b 20 7b | 0a 2b 20 0a 2b 20 0a 2b |t2 a2; {|.+ .+ .+|
|000051b0| 20 2f 2a 20 55 6e 74 69 | 6c 20 4d 57 43 20 69 6d | /* Unti|l MWC im|
|000051c0| 70 72 6f 76 65 73 20 66 | 6c 6f 61 74 69 6e 67 20 |proves f|loating |
|000051d0| 70 6f 69 6e 74 20 28 44 | 65 63 65 6d 62 65 72 20 |point (D|ecember |
|000051e0| 31 39 39 32 2c 20 74 68 | 65 79 20 74 65 6c 6c 20 |1992, th|ey tell |
|000051f0| 6d 65 29 2c 0a 2b 20 20 | 20 20 6f 72 20 66 69 78 |me),.+ | or fix|
|00005200| 65 73 20 74 68 65 20 6d | 61 74 68 20 6c 69 62 72 |es the m|ath libr|
|00005210| 61 72 79 20 28 6c 6f 67 | 28 2d 38 29 20 67 69 76 |ary (log|(-8) giv|
|00005220| 65 73 20 30 2c 20 66 6f | 72 20 65 78 61 6d 70 6c |es 0, fo|r exampl|
|00005230| 65 29 2c 20 77 65 27 6c | 6c 0a 2b 20 20 20 20 68 |e), we'l|l.+ h|
|00005240| 61 76 65 20 74 6f 20 70 | 75 74 20 75 70 20 77 69 |ave to p|ut up wi|
|00005250| 74 68 20 69 6e 63 6f 6e | 73 69 73 74 65 6e 74 20 |th incon|sistent |
|00005260| 68 61 6e 64 6c 69 6e 67 | 2e 20 0a 2b 20 20 20 20 |handling|. .+ |
|00005270| 0a 2b 20 20 20 20 43 6f | 68 65 72 65 6e 74 20 34 |.+ Co|herent 4|
|00005280| 2e 30 20 63 61 6e 6e 6f | 74 20 62 65 20 73 65 74 |.0 canno|t be set|
|00005290| 20 75 70 20 74 6f 20 70 | 61 73 73 20 66 70 65 5f | up to p|ass fpe_|
|000052a0| 74 65 73 74 0a 2b 20 2a | 2f 0a 2b 20 0a 2b 20 23 |test.+ *|/.+ .+ #|
|000052b0| 64 65 66 69 6e 65 20 46 | 50 45 5f 54 52 41 50 53 |define F|PE_TRAPS|
|000052c0| 5f 4f 4e 20 20 20 20 31 | 0a 2b 20 23 64 65 66 69 |_ON 1|.+ #defi|
|000052d0| 6e 65 20 4e 4f 49 4e 46 | 4f 5f 53 49 47 46 50 45 |ne NOINF|O_SIGFPE|
|000052e0| 20 20 20 31 0a 2b 20 0a | 2b 20 0a 2b 20 69 6e 74 | 1.+ .|+ .+ int|
|000052f0| 20 70 72 69 6e 74 66 28 | 29 3b 0a 2b 20 69 6e 74 | printf(|);.+ int|
|00005300| 20 73 70 72 69 6e 74 66 | 28 29 3b 0a 2b 20 0a 2b | sprintf|();.+ .+|
|00005310| 20 23 69 6e 63 6c 75 64 | 65 20 22 63 6f 6e 66 69 | #includ|e "confi|
|00005320| 67 2f 49 64 65 66 61 75 | 6c 74 2e 68 22 0a 2b 20 |g/Idefau|lt.h".+ |
|00005330| 0a 2b 20 23 65 6e 64 69 | 66 0a 2a 2a 2a 20 2f 64 |.+ #endi|f.*** /d|
|00005340| 65 76 2f 6e 75 6c 6c 09 | 53 61 74 20 46 65 62 20 |ev/null.|Sat Feb |
|00005350| 20 36 20 30 32 3a 30 37 | 3a 30 30 20 31 39 39 33 | 6 02:07|:00 1993|
|00005360| 0a 2d 2d 2d 20 6d 73 64 | 6f 73 2f 65 78 61 6d 70 |.--- msd|os/examp|
|00005370| 6c 65 73 2f 73 68 65 6c | 6c 2e 61 77 6b 09 53 61 |les/shel|l.awk.Sa|
|00005380| 74 20 44 65 63 20 20 35 | 20 31 33 3a 35 37 3a 31 |t Dec 5| 13:57:1|
|00005390| 33 20 31 39 39 32 0a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |3 1992.*|********|
|000053a0| 2a 2a 2a 2a 2a 2a 0a 2a | 2a 2a 20 30 20 2a 2a 2a |******.*|** 0 ***|
|000053b0| 2a 0a 2d 2d 2d 20 31 2c | 31 36 20 2d 2d 2d 2d 0a |*.--- 1,|16 ----.|
|000053c0| 2b 20 23 20 42 65 6e 20 | 4d 79 65 72 73 20 3c 30 |+ # Ben |Myers <0|
|000053d0| 30 30 33 35 37 31 34 30 | 30 40 6d 63 69 6d 61 69 |00357140|0@mcimai|
|000053e0| 6c 2e 63 6f 6d 3e 0a 2b | 20 0a 2b 20 23 20 54 65 |l.com>.+| .+ # Te|
|000053f0| 73 74 20 70 69 70 65 73 | 20 75 6e 64 65 72 20 44 |st pipes| under D|
|00005400| 4f 53 2e 20 63 6f 6d 6d | 65 6e 74 2f 75 6e 63 6f |OS. comm|ent/unco|
|00005410| 6d 6d 65 6e 74 20 70 72 | 69 6e 74 20 73 74 61 74 |mment pr|int stat|
|00005420| 65 6d 65 6e 74 73 20 62 | 65 6c 6f 77 0a 2b 20 42 |ements b|elow.+ B|
|00005430| 45 47 49 4e 20 7b 0a 2b | 20 23 20 72 65 64 69 72 |EGIN {.+| # redir|
|00005440| 65 63 74 69 6f 6e 20 64 | 6f 6e 65 20 62 79 20 73 |ection d|one by s|
|00005450| 68 65 6c 6c 65 64 20 63 | 6f 6d 6d 61 6e 64 0a 2b |helled c|ommand.+|
|00005460| 20 73 79 73 74 65 6d 28 | 22 64 69 72 20 2a 2e 2a | system(|"dir *.*|
|00005470| 20 2f 62 20 3e 70 69 70 | 70 6f 2e 22 29 0a 2b 20 | /b >pip|po.").+ |
|00005480| 6c 63 6f 75 6e 74 20 3d | 20 30 0a 2b 20 7d 0a 2b |lcount =| 0.+ }.+|
|00005490| 20 7b 0a 2b 20 23 20 70 | 72 69 6e 74 0a 2b 20 23 | {.+ # p|rint.+ #|
|000054a0| 20 42 65 6c 6f 77 20 69 | 73 20 72 65 64 69 72 65 | Below i|s redire|
|000054b0| 63 74 69 6f 6e 20 64 6f | 6e 65 20 62 79 20 6d 61 |ction do|ne by ma|
|000054c0| 77 6b 0a 2b 20 23 20 70 | 72 69 6e 74 20 3e 22 70 |wk.+ # p|rint >"p|
|000054d0| 69 70 70 6f 32 2e 22 0a | 2b 20 70 72 69 6e 74 20 |ippo2.".|+ print |
|000054e0| 24 30 20 7c 20 22 73 6f | 72 74 22 0a 2b 20 6c 63 |$0 | "so|rt".+ lc|
|000054f0| 6f 75 6e 74 2b 2b 0a 2b | 20 7d 0a 2b 20 45 4e 44 |ount++.+| }.+ END|
|00005500| 20 7b 20 70 72 69 6e 74 | 20 22 6d 61 77 6b 20 4e | { print| "mawk N|
|00005510| 52 20 6c 69 6e 65 20 63 | 6f 75 6e 74 3d 22 20 4e |R line c|ount=" N|
|00005520| 52 20 22 20 6f 75 72 20 | 6c 69 6e 65 20 63 6f 75 |R " our |line cou|
|00005530| 6e 74 3d 22 20 6c 63 6f | 75 6e 74 20 22 20 6c 69 |nt=" lco|unt " li|
|00005540| 6e 65 73 20 69 6e 20 70 | 69 70 70 6f 22 7d 0a 2a |nes in p|ippo"}.*|
|00005550| 2a 2a 20 2f 64 65 76 2f | 6e 75 6c 6c 09 53 61 74 |** /dev/|null.Sat|
|00005560| 20 46 65 62 20 20 36 20 | 30 32 3a 30 37 3a 30 30 | Feb 6 |02:07:00|
|00005570| 20 31 39 39 33 0a 2d 2d | 2d 20 63 6f 6e 66 69 67 | 1993.--|- config|
|00005580| 2f 33 38 36 62 73 64 2e | 68 09 54 68 75 20 46 65 |/386bsd.|h.Thu Fe|
|00005590| 62 20 20 34 20 31 38 3a | 32 30 3a 31 30 20 31 39 |b 4 18:|20:10 19|
|000055a0| 39 33 0a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |93.*****|********|
|000055b0| 2a 2a 0a 2a 2a 2a 20 30 | 20 2a 2a 2a 2a 0a 2d 2d |**.*** 0| ****.--|
|000055c0| 2d 20 31 2c 33 36 20 2d | 2d 2d 2d 0a 2b 20 0a 2b |- 1,36 -|---.+ .+|
|000055d0| 20 2f 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | /******|********|
|000055e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000055f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0a 2b |********|******.+|
|00005600| 20 33 38 36 62 73 64 2e | 68 0a 2b 20 63 6f 70 79 | 386bsd.|h.+ copy|
|00005610| 72 69 67 68 74 20 31 39 | 39 33 2c 20 4d 69 63 68 |right 19|93, Mich|
|00005620| 61 65 6c 20 44 2e 20 42 | 72 65 6e 6e 61 6e 0a 2b |ael D. B|rennan.+|
|00005630| 20 0a 2b 20 54 68 69 73 | 20 69 73 20 61 20 73 6f | .+ This| is a so|
|00005640| 75 72 63 65 20 66 69 6c | 65 20 66 6f 72 20 6d 61 |urce fil|e for ma|
|00005650| 77 6b 2c 20 61 6e 20 69 | 6d 70 6c 65 6d 65 6e 74 |wk, an i|mplement|
|00005660| 61 74 69 6f 6e 20 6f 66 | 0a 2b 20 74 68 65 20 41 |ation of|.+ the A|
|00005670| 57 4b 20 70 72 6f 67 72 | 61 6d 6d 69 6e 67 20 6c |WK progr|amming l|
|00005680| 61 6e 67 75 61 67 65 2e | 0a 2b 20 0a 2b 20 4d 61 |anguage.|.+ .+ Ma|
|00005690| 77 6b 20 69 73 20 64 69 | 73 74 72 69 62 75 74 65 |wk is di|stribute|
|000056a0| 64 20 77 69 74 68 6f 75 | 74 20 77 61 72 72 61 6e |d withou|t warran|
|000056b0| 74 79 20 75 6e 64 65 72 | 20 74 68 65 20 74 65 72 |ty under| the ter|
|000056c0| 6d 73 20 6f 66 0a 2b 20 | 74 68 65 20 47 4e 55 20 |ms of.+ |the GNU |
|000056d0| 47 65 6e 65 72 61 6c 20 | 50 75 62 6c 69 63 20 4c |General |Public L|
|000056e0| 69 63 65 6e 73 65 2c 20 | 76 65 72 73 69 6f 6e 20 |icense, |version |
|000056f0| 32 2c 20 31 39 39 31 2e | 0a 2b 20 2a 2a 2a 2a 2a |2, 1991.|.+ *****|
|00005700| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005710| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005720| 2a 2a 2a 2a 2a 2a 2a 2f | 0a 2b 20 0a 2b 20 0a 2b |*******/|.+ .+ .+|
|00005730| 20 2f 2a 0a 2b 20 24 4c | 6f 67 3a 20 33 38 36 62 | /*.+ $L|og: 386b|
|00005740| 73 64 2e 68 2c 76 20 24 | 0a 2b 20 20 2a 20 52 65 |sd.h,v $|.+ * Re|
|00005750| 76 69 73 69 6f 6e 20 31 | 2e 31 20 20 31 39 39 33 |vision 1|.1 1993|
|00005760| 2f 30 32 2f 30 35 20 20 | 30 32 3a 32 30 3a 31 30 |/02/05 |02:20:10|
|00005770| 20 20 6d 69 6b 65 0a 2b | 20 20 2a 20 49 6e 69 74 | mike.+| * Init|
|00005780| 69 61 6c 20 72 65 76 69 | 73 69 6f 6e 0a 2b 20 20 |ial revi|sion.+ |
|00005790| 2a 0a 2b 20 2a 2f 0a 2b | 20 0a 2b 20 23 69 66 6e |*.+ */.+| .+ #ifn|
|000057a0| 64 65 66 20 20 20 43 4f | 4e 46 49 47 5f 48 0a 2b |def CO|NFIG_H.+|
|000057b0| 20 23 64 65 66 69 6e 65 | 20 20 20 43 4f 4e 46 49 | #define| CONFI|
|000057c0| 47 5f 48 20 20 20 20 31 | 0a 2b 20 0a 2b 20 23 64 |G_H 1|.+ .+ #d|
|000057d0| 65 66 69 6e 65 20 20 20 | 46 50 45 5f 54 52 41 50 |efine |FPE_TRAP|
|000057e0| 53 5f 4f 4e 20 20 20 20 | 20 20 20 20 20 20 20 20 |S_ON | |
|000057f0| 20 20 20 20 31 0a 2b 20 | 23 64 65 66 69 6e 65 20 | 1.+ |#define |
|00005800| 20 20 46 50 45 5f 5a 45 | 52 4f 44 49 56 49 44 45 | FPE_ZE|RODIVIDE|
|00005810| 20 20 20 46 50 45 5f 46 | 4c 54 44 49 56 5f 54 52 | FPE_F|LTDIV_TR|
|00005820| 41 50 0a 2b 20 23 64 65 | 66 69 6e 65 20 20 20 46 |AP.+ #de|fine F|
|00005830| 50 45 5f 4f 56 45 52 46 | 4c 4f 57 20 20 20 20 20 |PE_OVERF|LOW |
|00005840| 46 50 45 5f 46 4c 54 4f | 56 46 5f 54 52 41 50 0a |FPE_FLTO|VF_TRAP.|
|00005850| 2b 20 0a 2b 20 23 64 65 | 66 69 6e 65 20 20 20 48 |+ .+ #de|fine H|
|00005860| 41 56 45 5f 53 54 52 54 | 4f 44 20 20 20 20 20 20 |AVE_STRT|OD |
|00005870| 20 20 20 30 0a 2b 20 0a | 2b 20 23 64 65 66 69 6e | 0.+ .|+ #defin|
|00005880| 65 20 20 20 48 41 56 45 | 5f 4d 41 54 48 45 52 52 |e HAVE|_MATHERR|
|00005890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000058a0| 30 0a 2b 20 0a 2b 20 23 | 64 65 66 69 6e 65 20 20 |0.+ .+ #|define |
|000058b0| 20 44 4f 4e 54 5f 50 52 | 4f 54 4f 5f 4f 50 45 4e | DONT_PR|OTO_OPEN|
|000058c0| 0a 2b 20 0a 2b 20 23 69 | 6e 63 6c 75 64 65 20 22 |.+ .+ #i|nclude "|
|000058d0| 63 6f 6e 66 69 67 2f 49 | 64 65 66 61 75 6c 74 2e |config/I|default.|
|000058e0| 68 22 0a 2b 20 0a 2b 20 | 23 65 6e 64 69 66 20 20 |h".+ .+ |#endif |
|000058f0| 2f 2a 20 43 4f 4e 46 49 | 47 5f 48 20 20 2a 2f 0a |/* CONFI|G_H */.|
|00005900| 2a 2a 2a 20 2f 64 65 76 | 2f 6e 75 6c 6c 09 53 61 |*** /dev|/null.Sa|
|00005910| 74 20 46 65 62 20 20 36 | 20 30 32 3a 30 37 3a 30 |t Feb 6| 02:07:0|
|00005920| 30 20 31 39 39 33 0a 2d | 2d 2d 20 6d 73 64 6f 73 |0 1993.-|-- msdos|
|00005930| 2f 65 78 61 6d 70 6c 65 | 73 2f 77 69 6e 65 78 65 |/example|s/winexe|
|00005940| 2e 61 77 6b 09 53 61 74 | 20 44 65 63 20 20 35 20 |.awk.Sat| Dec 5 |
|00005950| 31 33 3a 35 37 3a 31 35 | 20 31 39 39 32 0a 2a 2a |13:57:15| 1992.**|
|00005960| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0a 2a 2a |********|*****.**|
|00005970| 2a 20 30 20 2a 2a 2a 2a | 0a 2d 2d 2d 20 31 2c 31 |* 0 ****|.--- 1,1|
|00005980| 30 36 20 2d 2d 2d 2d 0a | 2b 20 23 20 42 65 6e 20 |06 ----.|+ # Ben |
|00005990| 4d 79 65 72 73 20 3c 30 | 30 30 33 35 37 31 34 30 |Myers <0|00357140|
|000059a0| 30 40 6d 63 69 6d 61 69 | 6c 2e 63 6f 6d 3e 0a 2b |0@mcimai|l.com>.+|
|000059b0| 20 0a 2b 20 23 20 53 75 | 6d 20 75 70 20 73 65 67 | .+ # Su|m up seg|
|000059c0| 6d 65 6e 74 20 73 69 7a | 65 73 20 6f 66 20 61 6c |ment siz|es of al|
|000059d0| 6c 20 57 69 6e 64 6f 77 | 73 20 45 58 45 73 20 69 |l Window|s EXEs i|
|000059e0| 6e 20 63 75 72 72 65 6e | 74 20 64 69 72 65 63 74 |n curren|t direct|
|000059f0| 6f 72 79 0a 2b 20 23 20 | 72 65 71 75 69 72 65 73 |ory.+ # |requires|
|00005a00| 20 44 4f 53 20 35 2e 30 | 20 61 6e 64 20 42 6f 72 | DOS 5.0| and Bor|
|00005a10| 6c 61 6e 64 20 54 44 55 | 4d 50 0a 2b 20 23 20 72 |land TDU|MP.+ # r|
|00005a20| 75 6e 20 77 69 74 68 0a | 2b 20 23 20 20 20 20 20 |un with.|+ # |
|00005a30| 20 20 61 77 6b 20 2d 66 | 77 69 6e 65 78 65 2e 61 | awk -f|winexe.a|
|00005a40| 77 6b 20 77 6f 72 6b 31 | 0a 2b 20 23 20 77 68 65 |wk work1|.+ # whe|
|00005a50| 72 65 20 77 6f 72 6b 31 | 20 69 73 20 61 20 77 6f |re work1| is a wo|
|00005a60| 72 6b 20 66 69 6c 65 0a | 2b 20 23 20 59 6f 75 20 |rk file.|+ # You |
|00005a70| 6d 75 73 74 20 68 61 76 | 65 20 61 74 20 6c 65 61 |must hav|e at lea|
|00005a80| 73 74 20 6f 6e 65 20 66 | 69 6c 65 6e 61 6d 65 20 |st one f|ilename |
|00005a90| 61 73 20 61 6e 20 61 72 | 67 2c 20 65 6c 73 65 20 |as an ar|g, else |
|00005aa0| 61 77 6b 20 77 69 6c 6c | 20 77 61 6e 74 20 74 6f |awk will| want to|
|00005ab0| 20 72 65 61 64 0a 2b 20 | 23 20 66 72 6f 6d 20 63 | read.+ |# from c|
|00005ac0| 6f 6e 3a 2c 20 68 65 6e | 63 65 20 74 68 65 20 72 |on:, hen|ce the r|
|00005ad0| 65 71 75 69 72 65 6d 65 | 6e 74 20 66 6f 72 20 77 |equireme|nt for w|
|00005ae0| 6f 72 6b 31 0a 2b 20 42 | 45 47 49 4e 20 7b 0a 2b |ork1.+ B|EGIN {.+|
|00005af0| 20 23 20 72 65 64 69 72 | 65 63 74 69 6f 6e 20 64 | # redir|ection d|
|00005b00| 6f 6e 65 20 62 79 20 73 | 68 65 6c 6c 65 64 20 63 |one by s|helled c|
|00005b10| 6f 6d 6d 61 6e 64 0a 2b | 20 73 79 73 74 65 6d 28 |ommand.+| system(|
|00005b20| 22 64 65 6c 20 77 6f 72 | 6b 66 69 6c 65 2e 24 25 |"del wor|kfile.$%|
|00005b30| 24 22 29 20 23 20 57 69 | 6c 6c 20 70 72 6f 62 61 |$") # Wi|ll proba|
|00005b40| 62 6c 79 20 63 61 75 73 | 65 20 61 20 46 69 6c 65 |bly caus|e a File|
|00005b50| 20 4e 6f 74 20 46 6f 75 | 6e 64 20 6d 65 73 73 61 | Not Fou|nd messa|
|00005b60| 67 65 0a 2b 20 23 20 47 | 65 6e 65 72 61 74 65 20 |ge.+ # G|enerate |
|00005b70| 61 20 6c 69 73 74 20 6f | 66 20 45 58 45 73 0a 2b |a list o|f EXEs.+|
|00005b80| 20 73 79 73 74 65 6d 28 | 22 64 69 72 20 2a 2e 65 | system(|"dir *.e|
|00005b90| 78 65 20 2f 62 20 3e 20 | 77 6f 72 6b 66 69 6c 65 |xe /b > |workfile|
|00005ba0| 2e 24 25 24 22 29 0a 2b | 20 77 68 69 6c 65 20 28 |.$%$").+| while (|
|00005bb0| 67 65 74 6c 69 6e 65 20 | 3c 20 22 77 6f 72 6b 66 |getline |< "workf|
|00005bc0| 69 6c 65 2e 24 25 24 22 | 20 3e 20 30 29 20 7b 0a |ile.$%$"| > 0) {.|
|00005bd0| 2b 20 23 20 54 44 55 4d | 50 20 6b 65 65 70 73 20 |+ # TDUM|P keeps |
|00005be0| 6f 6e 20 70 69 70 69 6e | 67 20 74 6f 20 74 68 65 |on pipin|g to the|
|00005bf0| 20 77 6f 72 6b 66 69 6c | 65 0a 2b 20 73 79 73 74 | workfil|e.+ syst|
|00005c00| 65 6d 28 22 74 64 75 6d | 70 20 22 20 24 31 20 22 |em("tdum|p " $1 "|
|00005c10| 3e 3e 20 22 20 41 52 47 | 56 5b 31 5d 29 0a 2b 20 |>> " ARG|V[1]).+ |
|00005c20| 7d 0a 2b 20 6d 6f 64 75 | 6c 65 5f 6e 61 6d 65 20 |}.+ modu|le_name |
|00005c30| 3d 20 22 22 20 23 20 69 | 6e 69 74 69 61 6c 69 7a |= "" # i|nitializ|
|00005c40| 65 0a 2b 20 23 20 4e 6f | 77 20 72 65 61 64 20 77 |e.+ # No|w read w|
|00005c50| 6f 72 6b 66 69 6c 65 20 | 62 61 63 6b 2c 20 70 72 |orkfile |back, pr|
|00005c60| 6f 63 65 73 73 69 6e 67 | 20 6c 69 6e 65 73 20 74 |ocessing| lines t|
|00005c70| 68 61 74 3a 0a 2b 20 23 | 20 31 2e 20 63 6f 6e 74 |hat:.+ #| 1. cont|
|00005c80| 61 69 6e 20 45 58 45 20 | 66 69 6c 65 20 6e 61 6d |ain EXE |file nam|
|00005c90| 65 0a 2b 20 23 20 32 2e | 20 63 6f 6e 74 61 69 6e |e.+ # 2.| contain|
|00005ca0| 20 73 65 67 6d 65 6e 74 | 20 74 79 70 65 0a 2b 20 | segment| type.+ |
|00005cb0| 23 20 50 72 69 6e 74 20 | 45 58 45 20 6e 61 6d 65 |# Print |EXE name|
|00005cc0| 20 61 6e 64 20 73 74 61 | 74 73 20 66 6f 72 20 65 | and sta|ts for e|
|00005cd0| 61 63 68 20 73 65 67 6d | 65 6e 74 20 74 79 70 65 |ach segm|ent type|
|00005ce0| 20 70 72 6f 63 65 73 73 | 65 64 0a 2b 20 23 20 57 | process|ed.+ # W|
|00005cf0| 68 65 6e 20 74 68 65 72 | 65 20 69 73 20 61 20 6e |hen ther|e is a n|
|00005d00| 65 77 20 45 58 45 20 6e | 61 6d 65 2c 20 70 72 69 |ew EXE n|ame, pri|
|00005d10| 6e 74 20 73 75 6d 6d 61 | 72 79 20 66 6f 72 20 45 |nt summa|ry for E|
|00005d20| 58 45 20 6a 75 73 74 20 | 70 72 6f 63 65 73 73 65 |XE just |processe|
|00005d30| 64 0a 2b 20 6a 20 3d 20 | 31 0a 2b 20 77 68 69 6c |d.+ j = |1.+ whil|
|00005d40| 65 20 28 67 65 74 6c 69 | 6e 65 20 3c 20 41 52 47 |e (getli|ne < ARG|
|00005d50| 56 5b 31 5d 20 3e 20 30 | 29 20 7b 0a 2b 20 23 20 |V[1] > 0|) {.+ # |
|00005d60| 6d 6f 64 75 6c 65 20 6e | 61 6d 65 0a 2b 20 69 66 |module n|ame.+ if|
|00005d70| 28 24 31 20 3d 3d 20 22 | 44 69 73 70 6c 61 79 22 |($1 == "|Display"|
|00005d80| 20 26 26 20 24 32 20 3d | 3d 20 22 6f 66 22 20 26 | && $2 =|= "of" &|
|00005d90| 26 20 24 33 20 3d 3d 20 | 22 46 69 6c 65 22 29 20 |& $3 == |"File") |
|00005da0| 7b 0a 2b 20 23 20 50 72 | 69 6e 74 20 70 72 6f 67 |{.+ # Pr|int prog|
|00005db0| 72 61 6d 20 73 75 6d 6d | 61 72 79 20 66 6f 72 20 |ram summ|ary for |
|00005dc0| 61 6c 6c 20 62 75 74 20 | 6c 61 73 74 20 70 72 6f |all but |last pro|
|00005dd0| 67 72 61 6d 0a 2b 20 69 | 66 28 6d 6f 64 75 6c 65 |gram.+ i|f(module|
|00005de0| 5f 6e 61 6d 65 20 21 3d | 20 22 22 29 20 7b 20 50 |_name !=| "") { P|
|00005df0| 72 69 6e 74 5f 53 75 6d | 6d 61 72 79 28 29 20 7d |rint_Sum|mary() }|
|00005e00| 0a 2b 20 6f 74 63 6f 75 | 6e 74 20 3d 20 30 20 23 |.+ otcou|nt = 0 #|
|00005e10| 20 74 65 78 74 20 73 65 | 67 6d 65 6e 74 20 63 6f | text se|gment co|
|00005e20| 75 6e 74 65 72 0a 2b 20 | 6f 64 63 6f 75 6e 74 20 |unter.+ |odcount |
|00005e30| 3d 20 30 20 23 20 64 61 | 74 61 20 73 65 67 6d 65 |= 0 # da|ta segme|
|00005e40| 6e 74 20 63 6f 75 6e 74 | 65 72 0a 2b 20 6f 74 73 |nt count|er.+ ots|
|00005e50| 69 7a 65 20 3d 20 30 20 | 20 23 20 74 65 78 74 20 |ize = 0 | # text |
|00005e60| 73 69 7a 65 20 61 63 63 | 75 6d 75 6c 61 74 6f 72 |size acc|umulator|
|00005e70| 0a 2b 20 6f 64 73 69 7a | 65 20 3d 20 30 20 20 23 |.+ odsiz|e = 0 #|
|00005e80| 20 64 61 74 61 20 73 69 | 7a 65 20 61 63 63 75 6d | data si|ze accum|
|00005e90| 75 6c 61 74 6f 72 0a 2b | 20 6d 6f 64 75 6c 65 5f |ulator.+| module_|
|00005ea0| 6e 61 6d 65 20 3d 20 24 | 34 20 7d 0a 2b 20 23 20 |name = $|4 }.+ # |
|00005eb0| 46 69 6c 65 20 53 69 7a | 65 0a 2b 20 69 66 28 24 |File Siz|e.+ if($|
|00005ec0| 31 20 3d 3d 20 22 44 4f | 53 22 20 26 26 20 24 32 |1 == "DO|S" && $2|
|00005ed0| 20 3d 3d 20 22 46 69 6c | 65 22 20 26 26 20 24 33 | == "Fil|e" && $3|
|00005ee0| 20 3d 3d 20 22 53 69 7a | 65 22 29 20 7b 0a 2b 20 | == "Siz|e") {.+ |
|00005ef0| 23 20 36 2b 20 64 69 67 | 69 74 20 66 69 6c 65 20 |# 6+ dig|it file |
|00005f00| 73 69 7a 65 20 77 69 74 | 68 20 6c 65 61 64 69 6e |size wit|h leadin|
|00005f10| 67 20 6c 65 66 74 20 70 | 61 72 65 6e 0a 2b 20 44 |g left p|aren.+ D|
|00005f20| 4f 53 5f 53 69 7a 65 20 | 3d 20 73 75 62 73 74 72 |OS_Size |= substr|
|00005f30| 28 24 35 2c 32 2c 37 29 | 0a 2b 20 23 20 66 69 6c |($5,2,7)|.+ # fil|
|00005f40| 65 20 73 69 7a 65 20 3c | 20 36 20 64 69 67 69 74 |e size <| 6 digit|
|00005f50| 73 0a 2b 20 69 66 28 44 | 4f 53 5f 53 69 7a 65 20 |s.+ if(D|OS_Size |
|00005f60| 3d 3d 20 30 20 7c 7c 20 | 44 4f 53 5f 53 69 7a 65 |== 0 || |DOS_Size|
|00005f70| 20 3d 3d 20 22 22 29 20 | 7b 20 44 4f 53 5f 53 69 | == "") |{ DOS_Si|
|00005f80| 7a 65 20 3d 20 24 36 20 | 7d 0a 2b 20 7d 0a 2b 20 |ze = $6 |}.+ }.+ |
|00005f90| 23 20 43 4f 44 45 20 73 | 65 67 6d 65 6e 74 0a 2b |# CODE s|egment.+|
|00005fa0| 20 69 66 28 24 31 20 3d | 3d 20 22 53 65 67 6d 65 | if($1 =|= "Segme|
|00005fb0| 6e 74 22 20 26 26 20 24 | 32 20 3d 3d 20 22 54 79 |nt" && $|2 == "Ty|
|00005fc0| 70 65 3a 22 20 26 26 20 | 24 33 20 3d 3d 22 43 4f |pe:" && |$3 =="CO|
|00005fd0| 44 45 22 29 20 7b 0a 2b | 20 64 65 63 76 61 6c 20 |DE") {.+| decval |
|00005fe0| 3d 20 68 65 78 64 65 63 | 28 73 75 62 73 74 72 28 |= hexdec|(substr(|
|00005ff0| 24 37 2c 31 2c 34 29 29 | 0a 2b 20 6f 74 73 69 7a |$7,1,4))|.+ otsiz|
|00006000| 65 20 2b 3d 20 64 65 63 | 76 61 6c 0a 2b 20 23 20 |e += dec|val.+ # |
|00006010| 70 72 69 6e 74 66 20 28 | 22 25 31 32 73 20 43 4f |printf (|"%12s CO|
|00006020| 44 45 20 25 34 73 20 25 | 37 75 5c 6e 22 2c 20 6d |DE %4s %|7u\n", m|
|00006030| 6f 64 75 6c 65 5f 6e 61 | 6d 65 2c 20 24 37 2c 20 |odule_na|me, $7, |
|00006040| 64 65 63 76 61 6c 29 0a | 2b 20 6f 74 63 6f 75 6e |decval).|+ otcoun|
|00006050| 74 2b 2b 20 7d 0a 2b 20 | 23 20 44 41 54 41 20 73 |t++ }.+ |# DATA s|
|00006060| 65 67 6d 65 6e 74 0a 2b | 20 69 66 28 24 31 20 3d |egment.+| if($1 =|
|00006070| 3d 20 22 53 65 67 6d 65 | 6e 74 22 20 26 26 20 24 |= "Segme|nt" && $|
|00006080| 32 20 3d 3d 20 22 54 79 | 70 65 3a 22 20 26 26 20 |2 == "Ty|pe:" && |
|00006090| 24 33 20 3d 3d 22 44 41 | 54 41 22 29 20 7b 0a 2b |$3 =="DA|TA") {.+|
|000060a0| 20 64 65 63 76 61 6c 20 | 3d 20 68 65 78 64 65 63 | decval |= hexdec|
|000060b0| 28 73 75 62 73 74 72 28 | 24 37 2c 31 2c 34 29 29 |(substr(|$7,1,4))|
|000060c0| 0a 2b 20 6f 64 73 69 7a | 65 20 2b 3d 20 64 65 63 |.+ odsiz|e += dec|
|000060d0| 76 61 6c 0a 2b 20 23 20 | 70 72 69 6e 74 66 20 28 |val.+ # |printf (|
|000060e0| 22 25 31 32 73 20 44 41 | 54 41 20 25 34 73 20 25 |"%12s DA|TA %4s %|
|000060f0| 37 75 5c 6e 22 2c 20 6d | 6f 64 75 6c 65 5f 6e 61 |7u\n", m|odule_na|
|00006100| 6d 65 2c 20 24 37 2c 20 | 64 65 63 76 61 6c 29 0a |me, $7, |decval).|
|00006110| 2b 20 6f 64 63 6f 75 6e | 74 2b 2b 20 7d 0a 2b 20 |+ odcoun|t++ }.+ |
|00006120| 7d 20 23 20 77 68 69 6c | 65 0a 2b 20 7d 20 23 20 |} # whil|e.+ } # |
|00006130| 65 6e 64 20 6f 66 20 42 | 45 47 49 4e 20 73 65 63 |end of B|EGIN sec|
|00006140| 74 69 6f 6e 0a 2b 20 23 | 20 6e 6f 20 6d 61 69 6e |tion.+ #| no main|
|00006150| 20 6c 6f 6f 70 20 61 74 | 20 61 6c 6c 21 0a 2b 20 | loop at| all!.+ |
|00006160| 45 4e 44 20 7b 0a 2b 20 | 23 20 70 72 69 6e 74 20 |END {.+ |# print |
|00006170| 72 65 63 6f 72 64 20 66 | 6f 72 20 6c 61 73 74 20 |record f|or last |
|00006180| 70 72 6f 67 72 61 6d 0a | 2b 20 50 72 69 6e 74 5f |program.|+ Print_|
|00006190| 53 75 6d 6d 61 72 79 28 | 29 0a 2b 20 23 20 64 65 |Summary(|).+ # de|
|000061a0| 6c 65 74 65 20 77 6f 72 | 6b 20 66 69 6c 65 73 0a |lete wor|k files.|
|000061b0| 2b 20 73 79 73 74 65 6d | 28 22 64 65 6c 20 22 41 |+ system|("del "A|
|000061c0| 52 47 56 5b 31 5d 29 0a | 2b 20 73 79 73 74 65 6d |RGV[1]).|+ system|
|000061d0| 28 22 64 65 6c 20 77 6f | 72 6b 66 69 6c 65 2e 24 |("del wo|rkfile.$|
|000061e0| 25 24 22 29 0a 2b 20 7d | 20 20 23 20 65 6e 64 20 |%$").+ }| # end |
|000061f0| 6f 66 20 45 4e 44 20 73 | 65 63 74 69 6f 6e 0a 2b |of END s|ection.+|
|00006200| 20 0a 2b 20 23 20 4e 6f | 20 73 63 61 6e 66 20 69 | .+ # No| scanf i|
|00006210| 6e 20 61 77 6b 2c 20 73 | 6f 20 63 6f 6e 76 65 72 |n awk, s|o conver|
|00006220| 74 20 68 65 78 20 73 74 | 72 69 6e 67 20 78 20 74 |t hex st|ring x t|
|00006230| 6f 20 64 65 63 69 6d 61 | 6c 20 74 68 65 20 68 61 |o decima|l the ha|
|00006240| 72 64 20 77 61 79 0a 2b | 20 66 75 6e 63 74 69 6f |rd way.+| functio|
|00006250| 6e 20 68 65 78 64 65 63 | 20 28 78 29 20 7b 0a 2b |n hexdec| (x) {.+|
|00006260| 20 72 65 73 75 6c 74 20 | 3d 20 30 0a 2b 20 66 6f | result |= 0.+ fo|
|00006270| 72 20 28 69 3d 31 3b 20 | 69 3c 3d 6c 65 6e 67 74 |r (i=1; |i<=lengt|
|00006280| 68 28 78 29 3b 20 69 2b | 2b 29 20 7b 0a 2b 20 74 |h(x); i+|+) {.+ t|
|00006290| 68 65 63 68 61 72 20 3d | 20 73 75 62 73 74 72 28 |hechar =| substr(|
|000062a0| 78 2c 69 2c 31 29 0a 2b | 20 23 20 64 69 67 69 74 |x,i,1).+| # digit|
|000062b0| 73 20 30 2d 39 20 61 6e | 64 20 6c 6f 77 65 72 20 |s 0-9 an|d lower |
|000062c0| 63 61 73 65 20 68 65 78 | 20 70 72 6f 64 75 63 65 |case hex| produce|
|000062d0| 64 20 62 79 20 54 44 55 | 4d 50 0a 2b 20 23 20 75 |d by TDU|MP.+ # u|
|000062e0| 73 65 20 62 72 75 74 65 | 20 66 6f 72 63 65 0a 2b |se brute| force.+|
|000062f0| 20 69 66 20 28 74 68 65 | 63 68 61 72 20 3d 3d 20 | if (the|char == |
|00006300| 22 30 22 29 20 7b 72 65 | 73 75 6c 74 20 3d 20 72 |"0") {re|sult = r|
|00006310| 65 73 75 6c 74 2a 31 36 | 7d 0a 2b 20 69 66 20 28 |esult*16|}.+ if (|
|00006320| 74 68 65 63 68 61 72 20 | 3d 3d 20 22 31 22 29 20 |thechar |== "1") |
|00006330| 7b 72 65 73 75 6c 74 20 | 3d 20 72 65 73 75 6c 74 |{result |= result|
|00006340| 2a 31 36 20 2b 20 31 7d | 0a 2b 20 69 66 20 28 74 |*16 + 1}|.+ if (t|
|00006350| 68 65 63 68 61 72 20 3d | 3d 20 22 32 22 29 20 7b |hechar =|= "2") {|
|00006360| 72 65 73 75 6c 74 20 3d | 20 72 65 73 75 6c 74 2a |result =| result*|
|00006370| 31 36 20 2b 20 32 7d 0a | 2b 20 69 66 20 28 74 68 |16 + 2}.|+ if (th|
|00006380| 65 63 68 61 72 20 3d 3d | 20 22 33 22 29 20 7b 72 |echar ==| "3") {r|
|00006390| 65 73 75 6c 74 20 3d 20 | 72 65 73 75 6c 74 2a 31 |esult = |result*1|
|000063a0| 36 20 2b 20 33 7d 0a 2b | 20 69 66 20 28 74 68 65 |6 + 3}.+| if (the|
|000063b0| 63 68 61 72 20 3d 3d 20 | 22 34 22 29 20 7b 72 65 |char == |"4") {re|
|000063c0| 73 75 6c 74 20 3d 20 72 | 65 73 75 6c 74 2a 31 36 |sult = r|esult*16|
|000063d0| 20 2b 20 34 7d 0a 2b 20 | 69 66 20 28 74 68 65 63 | + 4}.+ |if (thec|
|000063e0| 68 61 72 20 3d 3d 20 22 | 35 22 29 20 7b 72 65 73 |har == "|5") {res|
|000063f0| 75 6c 74 20 3d 20 72 65 | 73 75 6c 74 2a 31 36 20 |ult = re|sult*16 |
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
